原创力文档- 1、本文档共88页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
计算机应用
Elementary Computer Application
for Medicine;第5章 程序设计基础;;;窗体界面设计;6;7;8;9;10;11;12;一个项目中的多窗体;14;15;16;17;18;练习;20;21;22;23;24;25;例5.16 门诊病案信息录入;‘注意VB6.0和VS2010的区别
Dim x As Integer, varstring As String
Private Sub Button1_Click(… ) …
TextBox3.Enabled = True
TextBox3.Text = TextBox1.Text TextBox2.Text
If RadioButton1.Checked = True Then
TextBox3.Text = TextBox3.Text RadioButton1.Text
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = TextBox3.Text RadioButton2.Text
End If
End Sub;Private Sub TextBox1_LostFocus(… ) …
x = Len(TextBox1.Text)
If x 6 Then
Beep()
TextBox1.Text =
TextBox1.Focus()
TextBox3.Clear()
TextBox3.Text = 病历号为6位数字
Else
TextBox3.Clear()
Button1.Enabled = True
End If
End Sub;Private Sub Button3_Click (… ) …
Select Case True
Case CheckBox1.Checked = True And CheckBox2.Checked = False
TextBox3.Font = New Font(宋体, 10, FontStyle.Bold)
Case CheckBox2.Checked = True And CheckBox1.Checked = False
TextBox3.Font = New Font(宋体, 10, FontStyle.Italic)
Case CheckBox1.Checked And CheckBox2.Checked
TextBox3.Font = New Font(宋体, 10, FontStyle.Bold Or FontStyle.Italic)
Case CheckBox1.Checked = False And CheckBox2.Checked = False
TextBox3.Font = New Font(宋体, 10, FontStyle.Regular)
End Select
End Sub
Private Sub Form1_Load(…) …
Button1.Enabled = False
TextBox3.Font = New Font(宋体, 10, FontStyle.Regular)
End Sub;30;31;32;33;34;窗体和基本控件;窗体和基本控件;窗体和基本控件;窗体和基本控件;窗体和基本控件;40;41;42;43;44;45;46;窗体和基本控件(VB6.0);48;49;50;51;52;53;54;55;练习;练习;练习;我们通过用实验来学习巩固。;窗体界面设计;61;62;;64;65;66;67;68;69;70;71;鼠标事件练习;73;我们通过用实验来学习巩固。;扩展练习;扩展练习;扩展练习;扩展练习;窗体界面设计;80;菜单设计;菜单设计;菜单设计;菜单设计;工具栏设计;我们通过用实验来学习巩固。;系统组装设计举例;
文档评论（0）