计算机VB设计题汇编含答案.pptVIP

  • 2
  • 0
  • 约2.31千字
  • 约 52页
  • 2019-06-26 发布于湖北
  • 举报
VB设计题汇编 VB设计题分类 时钟控件应用 列表框组合框控件应用 图形框图像框绘图图片加载 滚动条的应用 文本框按钮标签控件 单选框复选框框架控件应用 菜单设计 时钟控件应用 列表框组合框控件应用 图形框图像框绘图图片加载 滚动条的应用 文本框按钮标签控件 单选框复选框框架控件应用 菜单设计 相关代码如下: Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = VB程序设计 End Sub Private Sub Command1_Click() If Text1.Text = student Then Label2.Caption = 欢迎使用本系统 Else Label2.Caption = 口令错,请重新输入“ Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End If End Sub Text1属性:PassWordChar---* 添加标签caption属性为“请您输入您的昵称”的label控件;添加一个文本框和一个caption属性为“下一步”的命令按钮,其enabled属性为false. Private Sub Text1_Change() Command1.Enabled = True Form1.Caption = Text1.Text End Sub * Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Label1.Caption = 00:00:00 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Caption = Format(Time, hh:mm:ss) End Sub 添加两个list控件和一个Caption属性为剪切的按钮. Private Sub Command1_Click() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub Form_Load() List1.AddItem AAA List1.AddItem BBB List1.AddItem CCC List1.AddItem DDD List1.AddItem EEE End Sub 在工具栏的“添加窗体”添加form2窗体. 在工程资源管理器窗口中的“工程属性”对话框指定form1为启动窗体. 在Form1中添加一个命令按钮. Private Sub Command1_Click() Unload Me Form2.Show form2.picture=Loadpicture(“K:\Fjexam95\ravmon.jpg”) End Sub 控件属性设置如题 Private Sub Form_Load() Image1.Picture =LoadPicture(k:\fjexam95\Tree.jpg) Image2.Picture = LoadPicture(k:\fjexam95\dog.jpg) Image3.Visible = False End Sub Private Sub Command1_Click() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture Image3.Visible = False End Sub 相关代码如下: Private Sub C1_Click() Form1.Picture = LoadPicture(k:\fjexam95\jztx.bmp) End Sub Private Sub C2_Click() Form1.Picture = LoadPicture() End Sub 添加Label2,Label3,Label4,Label5.其Caption分为”调出颜色”,”红(R)”,”绿(G)”,”蓝(B)”的标签控件,Label1的 Caption 为空,和 添加三个水平滚动条(名称为hs1,hs2,hs3),且min,max属性值均为0,

文档评论(0)

1亿VIP精品文档

相关文档