程序员技术怀旧,晒晒那些过去的经典

  • 时间:
  • 浏览:2
  • 来源:uu快3开奖_uu快3娱乐_输钱

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

VB6.0

  3、 Visual Basic 怎样才能注释一段较长多多线程 代码?

Screen.MousePointer= 99 ’用户鼠标类型

Screen.MouseIcon=LoadPicture("C:ABC1.ICO") ’读取鼠标的图标文件

 1、因为一行多多线程 太长,时要换行?

On Error Resume Next

...

Label1.Caption=“不管对不对有的是执行”

...

  这类:

  2) 遇到错误以前忽略当前错误,继续执行,On Error Resume Next。

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

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

End Sub

  6、想要换掉鼠标显示的形态,怎样才能做?

  VB 里每个控件有的是ToolTipText属性,我想想要上加一行多多线程 就时要了。

  7、怎样才能设置多多线程 的错误出口?

  把窗体的KeyPreview属性设置成True,想要在Form_KeyPress 事件里编写多多线程 代码如下:

  VB注释多多线程 代码的符号是“'”,我想想要在某行多多线程 前面上加“'”,就时要注释该行多多线程 。但因为多多线程 代码很长的以前,一行一行地注释令人实在难以忍受。VB四种 提供了这些 功能,在主菜单“视图”选项的“工具栏”下,选中Edit,VB的界面会再次出现一排工具按钮,其中的手形图标按钮后的有有3个多 按钮用于“设置注释块”和“解除注释块”。

Sub PicMove()

Frm.Picture2.Left = Frm.Picture1.Left + _ ’上加换行符

Frm.Picture1.Width

End Sub

  VB提供的系统控件一般有的是MousePointer和MouseIcon属性。我们我们时要寻找此人 喜欢的.ICO,.CUR文件,实现的多多线程 如下:

  On Error说说用于多多线程 的错误出口正确处理。一般的正确处理辦法 有四种 :

On Error GoTo ERR_LINE

...

Label1.Caption=“正确执行”

ERR_LINE:

...

Label1.Caption=“出错了!”

  VB上端有个系统对象叫App。App.Path许多当前软件的运行目录。而命令行参数存倒进有有3个多 系统变量上端,叫Command。多多线程 说说如下:

  1) 遇到错误跳转到某一行多多线程 去执行,On Error GoTo someline。

 5、 怎样才能获得当前软件的运行磁盘目录和命令行参数?

  2、 怎样才能在设计的以前清空处于的图片?

  用鼠标点中该图片,在属性窗口中选中Picture属性,按Del键便可清空图片。

  这类:Label1.ToolTipText = "这是提示!"。

  VB的多多线程 代码是允许换行书写的,我想想要在每次换行的最后有有3个多 字符上加换行字符“_”就时要了。这类:

  9、我想想要窗体一运行就在屏幕的中央,怎样才能实现?

Label1.Caption=App.Path

Label2.Caption=Command$

  4、怎样才能实现鼠标一移上去就再次出现小提示窗口的功能?

  VB的系统对象Screen记录了当前显示模式的强度和强度,时要利用这些 值来设置窗体的位置。

  这类:

  10、许多软件有的是鼠标在文本框TextBox一按下,就选中所有文字的功能,是怎样才能实现的?

Private Sub Form_KeyPress(KeyAscii As Integer)

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

 ...

End Sub

Private Sub Text1_GotFocus()

 Text1.SelStart = 0

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

End Sub

Private Sub Form_Load()

 CenterForm Me ’调用过程

End Sub