㈠ 用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 简历
用直线就可以了。