导航:首页 > 个人简历 > 个人简历做vb

个人简历做vb

发布时间:2021-01-05 09:56:51

㈠ 用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 简历

用直线就可以了。

阅读全文

与个人简历做vb相关的资料

热点内容
晋升考核自我评价 浏览:480
职场新人自我介绍日语 浏览:700
职携求职公寓 浏览:354
醉驾人找工作 浏览:973
百度厦门六中艺术特长报名表 浏览:868
劲霸经编面试 浏览:364
小孩综合素质自我评价 浏览:470
玉环学校洗碗招聘信息 浏览:15
教师教育自我评价 浏览:192
2014合肥168中学特长生音乐录取名单 浏览:478
应届生面试自我介绍范文3分钟 浏览:800
丹阳人才招聘网 浏览:72
生物学科特长怎么写 浏览:250
昌硕面试后多久通知 浏览:925
陕西省铁饼特长生 浏览:751
硕展科技有限公司招聘 浏览:346
2019年南阳卷烟厂招聘信息 浏览:461
时尚招聘信息 浏览:341
安吉洁美电子招聘信息 浏览:106
个人简历问候语 浏览:924