机房收费总结--小小规范2

前言：

  第一篇文章的延续，总结过程中遇到的问题以及代码总结。

控件数组

  就是说一个TextBox，在写其的代码的时候：比如说txtAnswer.text时，本来打到Answer.的时候后面就会出现显示，在菜单中就会有Text这一项，而我经常遇到这种情况，就是后面的提示只有四个：分别是Count Item LBound和UBound
请问这是为什么，应如何修改

  此时Answer是控件数组名，说明还有几个文本框得名字(name)也叫Answer，所以后面的提示只有这四个：分别是Count Item LBound和UBound 。

  正确的使用应该是Answer(0).text或Answer(1).text等等。
括号中的‘0’或‘1’是此控件的索引号（由控件的index属性可得）。
当输入Answer(1).时，菜单中就会有Text这一项。

解决办法：重新将这个控件组去掉后就可以分别设置属性。

---

密码设置为※：

  在文本框中的password 中输入※

---

切换TAB顺序

  如何设置控件的切换顺序：tabindex中填写相应顺序数字。

---

设定次数

  设置输入次数：写在确定按钮中：

Dim miCount As Integer

 miCount = miCount + 1
                If miCount = 3 Then
                    Me.Hide
                End If
                Exit Sub

---

父子窗体

  如何让子窗体显示的内容置前：
  InquiryLineState.Show ‘显示窗体
  SetParent InquiryLineState.hWnd, Picture1.hWnd ’本窗体最前，主窗体靠后

---

最大化

  vb windowstate属性：

  vbNormal 0 （缺省值）正常 。
  VbMinimized 1 最小化（最小化为一个图标）
  VbMaximized 2 最大化（扩大到最大尺寸）

---

  小结：接下来期待机房的逻辑吧！