vb第六章习题选（求指正）(ˉ▽￣ /) ~~

1、 编写程序，用文本框检查口令输入。在窗体上建立一个文本框、一个图片框和三个命令  按钮，把三个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中；在文本框中输入口令；单击第二个命令按钮，检查输入口令是否正确。如果正确，则在图片框中显示图形；否则显示信息框，要求重新输入，此时调用第一个命令按钮的Click 事件过程，重新在文本框中输入口令，直到输入口令正确为止。如果单击“结束”按钮，则结束程序。画出界面设计，属性列表，写出相关事件过程代码。

Option Explicit

Private Sub Command1_Click()
         Text1.Text = ""
         Text1.SetFocus '移动光标到文本框中

End Sub

Private Sub Command2_Click()
         If Text1 = "芝麻开门" Then
               Picture1.Picture = LoadPicture("C:\Users\Administrator\Pictures\沙溪夜景4.jpg") '代码装入图片
         Else
               MsgBox("输错了笨蛋，再给你一次机会") 'msgbox不需要再输出或赋值

               Call Command1_Click '调用第一个命令按钮的click事件
         End If
End Sub

Private Sub Command3_Click()
         End
End Sub

Private Sub Text1_Change()
         Text1.PasswordChar = "*" 
End Sub

倒数第二行'代码设置密码不可见/滑稽；听说设置了这个就不支持中文密码了，但在实际操作中选中text1原有文字(caption)以后是可以键入中文的<(*￣▽￣*)/

 

标答定义了一个password和一个msg，便于更改密码以及msg的输出信息。嗯，应该像标答一样用代码来设置控件属性，就不需要再去翻滚属性窗口，与密密麻麻的小字作斗争了啊哈哈哈哈哈拯救我的眼睛(ˉ▽￣～)~~

2、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮，程序运行后，在第一个列表框中选择所需要的项目，单“添加”按钮，把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目，要求在每个列表框的下面用标签控件显示各自的STYLE和SORTED属性。

Option Explicit

Private Sub Command1_Click()
    List2.AddItem List1.Text
    List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command2_Click()
    List1.AddItem List2.Text
    List2.RemoveItem List2.ListIndex
End Sub

Private Sub Form_Load()
    Command1.Caption = "添加"
    Command2.Caption = "删除"

    Label1.Caption = "Style=" & List1.Style & Chr$(10) + Chr$(13) & "Sorted=" & List1.Sorted
    Label2.Caption = "Style=" & List2.Style & Chr$(10) + Chr$(13) & "Sorted=" & List2.Sorted

    List1.FontSize = 14
    List2.FontSize = 14
    List1.AddItem "我很帅"
    List1.AddItem "我最帅~"
    List1.AddItem "我是最帅的"
    List1.AddItem "我是世上最帅"
    List1.AddItem "我是全宇宙最帅"
End Sub

其实“用标签控件显示属性”这个地方并不会 - -|| 百度告诉我像17/18行这样做（需要添加的说明部分“Style=”与其它元素用&连接）但如此只能显示style的代数值“Style=0”而不是示例中的“Style=Standard”

另外我这个做法其实有一个bug，就是如果在list1中不选择任何项目，点击“添加”就会出错；list2中不选择项目的话也会依照添加顺序删除返回list1.下面xjnzhidao同学的做法就不存在这个bug 感谢xjnzhidao（但在list2多选项目时，单击“删除”时不会一次性返回list1而是一个个回去o(╥﹏╥)o···）

Private Sub Command1_Click()
            If List1.SelCount > 0 Then
               List2.AddItem List1.Text
               List1.RemoveItem List1.ListIndex
            End If
End Sub

Private Sub Command2_Click()
            If List2.SelCount > 0 Then
               List1.AddItem List2.Text
               List2.RemoveItem List2.ListIndex
            End If
End Sub

另外，要使list2显示示例中的类似复选框的方式，应该设定style为1-checkbox。这个只读属性是不能用代码设置的

3、编写程序，用计时器按秒计时，同时响铃、字体大小变化。

这题主要是计时器的运用。蛮有趣的这个玩意儿

Option Explicit
Private Sub Form_Load()
   Text1.FontSize = 14
   Text1.Text = "来自博主铺天盖地的帅"
   Text1.FontName = "微软雅黑"
   Timer1.Interval = 1000
End Sub
Private Sub Label1_change()
   Beep
End Sub
Private Sub Timer1_Timer()
   Label1.FontSize = 36
   Label1.FontName = "times new roman"
   Label1.Caption = Time$
   If Text1.FontSize < 100 Then
      Text1.FontSize = Text1.FontSize * 1.2
   Else
      Text1.FontSize = 10
   End If
End Sub