㈠ 用vb編程在窗體顯示,需要設計個人簡歷、家庭等按鈕來選擇顯示內容。可以調整字體顏色,大小等,內容或
這種問題建議直接找人教,或者找個源碼參考下。
或者你花點時間理解下控制項名.屬性名這種結構的使用。
㈡ VB編寫一個"個人簡歷表"程序
DimxmAsString,nlAsString,xbAsString,xlAsString,zyAsString
Dimah1AsString,ah2AsString,ah3AsString,ah4AsString
PrivateSubCheck1_Click()
IfCheck1.Value=1Thenah1="旅遊"Elseah1=""
EndSub
PrivateSubCheck2_Click()
IfCheck2.Value=1Thenah2="體育"Elseah2=""
EndSub
PrivateSubCheck3_Click()
IfCheck3.Value=1Thenah3="音樂"Elseah3=""
EndSub
PrivateSubCheck41_Click()
IfCheck4.Value=1Thenah4="集郵"Elseah4=""
EndSub
PrivateSubCommand1_Click()
Text3.Text="簡歷"&vbCrLf&"姓名:"&xm&vbCrLf&"年齡:"&nl&vbCrLf&"性別:"&xb&vbCrLf&"學歷:"&xl&vbCrLf&"職業:"&zy&vbCrLf&"愛好:"&ah1&ah2&ah3&ah4
EndSub
PrivateSubCommand2_Click()
Text1="":xm=""
Text2="":nl=""
Text3=""
Check1.Value=0:ah1=""
Check2.Value=0:ah2=""
Check3.Value=0:ah3=""
Check4.Value=0:ah4=""
EndSub
PrivateSubForm_Load()
EndSub
PrivateSubOption1_Click()
IfOption1.Value=TrueThenxb="男"
EndSub
PrivateSubOption2_Click()
IfOption2.Value=TrueThenxb="女"
EndSub
PrivateSubOption3_Click()
IfOption3.Value=TrueThenxl="大學"
EndSub
PrivateSubOption4_Click()
IfOption4.Value=TrueThenxl="本科"
EndSub
PrivateSubOption5_Click()
IfOption5.Value=TrueThenxl="研究生"
EndSub
PrivateSubOption6_Click()
IfOption6.Value=TrueThenzy="教師"
EndSub
PrivateSubOption7_Click()
IfOption7.Value=TrueThenzy="醫生"
EndSub
PrivateSubOption8_Click()
IfOption8.Value=TrueThenzy="公務員"
EndSub
PrivateSubText1_Change()
xm=Text1.Text
EndSub
PrivateSubText2_Change()
nl=Text2.Text
EndSub
㈢ 求用vb程序設計 做一份個人簡歷表的代碼,如下圖
我也不會,你問別人吧
㈣ 用vb編程在窗體顯示,需要設計個人簡歷、家庭等按鈕來選擇顯示內容。可以調整字體顏色,大小等,
參照 這里 :
http://..com/question/1605040002454540987.html?oldq=1
㈤ Vb.net中怎樣生成基本信息登記表並列印出來,就像簡單的個人簡歷類型的表格
最最簡單的辦法~~~是先用word做一個樣表,里邊的項目用一個代號來填寫,比如 *項目1* *項目2* ~~~做好後,用vb操縱word通過代碼替換掉要填寫的這些代號,然後另存為就可以了
㈥ 用VB編程在窗體顯示.需要設計個人簡歷、家庭等按扭來選擇顯示內容.可以調整字體、顏色、大小等內容,
'窗體中添加3個commandbutton,一個對話框控制項
Dim str1 As String, str2 As String, str3 As String
Private Sub Command1_Click()
str1 = str2
Cls
Print str1
End Sub
Private Sub Command2_Click()
str1 = str3
Cls
Print str1
End Sub
Private Sub Command3_Click()
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.FontName = "宋體"
CommonDialog1.ShowFont
Form1.FontName = CommonDialog1.FontName
Form1.FontBold = CommonDialog1.FontBold
Form1.FontItalic = CommonDialog1.FontItalic
Form1.ForeColor = CommonDialog1.Color
Form1.FontSize = CommonDialog1.FontSize
Cls
Print str1
End Sub
Private Sub Form_Load()
Command1.Caption = "個人簡歷"
Command2.Caption = "家庭情況"
Command3.Caption = "字體"
str2 = "個人簡歷:" & vbCrLf & _
"姓名:XXX" & vbCrLf & _
"性別:男" & vbCrLf & _
"年齡:23" & vbCrLf & _
"xxxx年xx月至xxxx年xx月:小學" & vbCrLf & _
"xxxx年xx月至xxxx年xx月:初中學" & vbCrLf & _
"xxxx年xx月至xxxx年xx月:高中" & vbCrLf & _
"xxxx年xx月至xxxx年xx月:大學" & vbCrLf
str3 = "家庭情況:" & vbCrLf & _
"家庭成員:XXX" & vbCrLf
End Sub
㈦ 求編寫一個「個人簡歷表」程序。VB是6.0版本的
先將各option控制項name屬性依次改成a1、a2;b1、b2......PrivateSubCommand1_Click()
Label3.Caption="姓名:"&Text1.Text&vbCrLf
Label3.Caption=Label3.Caption&"年齡:"&Text2.Text&vbCrLf
Ifa1Then
Label3.Caption=Label3.Caption&"性別:男"&vbCrLf
ElseIfa2Then
Label3.Caption=Label3.Caption&"性別:女"&vbCrLf
EndIf
Ifb1Then
Label3.Caption=Label3.Caption&"學歷:大專"&vbCrLf
ElseIfb2Then
Label3.Caption=Label3.Caption&"學歷:本科"&vbCrLf
ElseIfb3Then
Label3.Caption=Label3.Caption&"學歷:研究生"&vbCrLf
EndIf
Ifc1Then
Label3.Caption=Label3.Caption&"職業:教師"&vbCrLf
ElseIfc2Then
Label3.Caption=Label3.Caption&"職業:醫生"&vbCrLf
ElseIfc3Then
Label3.Caption=Label3.Caption&"職業:公務員"&vbCrLf
EndIf
Ifd1Then
Label3.Caption=Label3.Caption&"愛好:旅遊"&vbCrLf
ElseIfd2Then
Label3.Caption=Label3.Caption&"愛好:體育"&vbCrLf
ElseIfd3Then
Label3.Caption=Label3.Caption&"愛好:音樂"&vbCrLf
ElseIfd4Then
Label3.Caption=Label3.Caption&"愛好:集郵"&vbCrLf
EndIf
EndSub
PrivateSubCommand2_Click()
Label3.Caption=""
EndSub
㈧ 如何用vb開發一個變更履歷功能
變更履歷的原型發來,實現都不是問題
㈨ 求VB個人簡歷表程序
代碼如下:
Private Sub Command1_Click() '顯示信息
Label3.Caption = "簡歷"
Label3.Caption = Label3.Caption & vbCrLf & "姓名:" & Text1.Text
Label3.Caption = Label3.Caption & vbCrLf & "年齡:" & Text2.Text
If Option1.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "性別:男"
Else
Label3.Caption = Label3.Caption & vbCrLf & "性別:女"
End If
If Option3.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "學歷:大專"
ElseIf Option4.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "學歷:本科"
Else
Label3.Caption = Label3.Caption & vbCrLf & "學歷:研究生"
End If
If Option6.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "職業:教師"
ElseIf Option7.Value = True Then
Label3.Caption = Label3.Caption & vbCrLf & "職業:醫生"
Else
Label3.Caption = Label3.Caption & vbCrLf & "職業:公務員"
End If
x = vbCrLf & "愛好:"
For i = 0 To 3
If Check1(i) = 1 Then x = x & Check1(i).Caption & " "
Next i
Label3.Caption = Label3.Caption & x
End Sub
Private Sub Command2_Click()
Form_Load '初始化窗體
End Sub
Private Sub Form_Load() '初始化窗體
Text1.Text = ""
Text2.Text = ""
Option1.Value = True
Option2.Value = False
Option3.Value = True
Option4.Value = False
Option5.Value = False
Option6.Value = True
Option7.Value = False
Option8.Value = False
For i = 0 To 3
Check1(i).Value = 0
Next i
Label3.Caption = ""
End Sub
㈩ vb.net reportviewer 簡歷
用直線就可以了。