初学者必知：VB10个小编程(2)

中华网科技 http://tech.china.com 2005-05-30 16:17:56

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
7、如何设置程序的错误出口？ 　

　　On Error语句用于程序的错误出口处理。一般的处理方法有两种。

　　1) 遇到错误跳转到某一行程序去执行，On Error GoTo someline。

　　例如：

　　On Error GoTo ERR_LINE

　　...

　　Label1.Caption=“正确执行”

　　ERR_LINE:

　　...

　　Label1.Caption=“出错了！”

　　2) 遇到错误之后忽略当前错误，继续执行，On Error Resume Next。

　　例如：

　　On Error Resume Next

　　...

　　Label1.Caption=“不管对不对都要执行”

　　... 　　

　　8、怎样获得键盘输入和判断敲键的Ascii值？　　

　　把窗体的KeyPreview属性设置成True，然后在Form_KeyPress 事件里编写程序代码如下：

　　Private Sub Form_KeyPress(KeyAscii As Integer)

　　Me.Caption = Str(KeyAscii) ‘取得键盘输入的字符

　　...

　　End Sub 　　

　　9、我希望窗体一运行就在屏幕的中央，怎么实现？ 　　

　　VB的系统对象Screen记录了当前显示模式的高度和宽度，可以利用这个值来设置窗体的位置。

　　Sub CenterForm(frm As Form) ‘定义过程

　　frm.Move (Screen.width - frm.width) 2, (Screen.Height - frm.Height) 2

　　End Sub

　　Private Sub Form_Load()

　　CenterForm Me ’调用过程

　　End Sub 　

　　10、很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？ 　

　　Private Sub Text1_GotFocus()

　　Text1.SelStart = 0

　　Text1.SelLength = Len(Text1.Text) ’过程调用

　　End Sub 　

首页 上页 | 1 | 2 | 下页 尾页  共 2 页