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

  • 时间:
  • 浏览:3

On Error Resume Next

...

Label1.Caption=“不管对不对一定会执行”

...

  10、但是我软件一定会鼠标在文本框TextBox一按下,就选中所有文字的功能,是为什么在么在么实现的?

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

  On Error一句话用于tcp连接的错误出口出理 。一般的出理 办法有有并不是:

On Error GoTo ERR_LINE

...

Label1.Caption=“正确执行”

ERR_LINE:

...

Label1.Caption=“出错了!”

  1) 遇到错误跳转到某一行tcp连接去执行,On Error GoTo someline。

  VB注释tcp连接代码的符号是“'”,我希望在某行tcp连接前面加带“'”,就不能注释该行tcp连接。但机会tcp连接代码很长的完后 ,一行一行地注释令人我我觉得难以忍受。VB有并不是提供了并不是功能,在主菜单“视图”选项的“工具栏”下,选中Edit,VB的界面会再次出現一排工具按钮,其中的手形图标按钮后的两个 多多 按钮用于“设置注释块”和“解除注释块”。

  7、怎么都可否设置tcp连接的错误出口?

  例如:

VB6.0

  VB的系统对象Screen记录了当前显示模式的淬硬层 和淬硬层 ,不能利用并不是值来设置窗体的位置。

  把窗体的KeyPreview属性设置成True,我希望在Form_KeyPress 事件里编写tcp连接代码如下:

  8、怎么都可否获得键盘输入和判断敲键的Ascii值?

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

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

Private Sub Form_Load()

 CenterForm Me ’调用过程

End Sub

  2、 怎么都可否在设计的完后 清空位于的图片?

Label1.Caption=App.Path

Label2.Caption=Command$

 1、机会一行tcp连接太长,不能换行?

Private Sub Form_KeyPress(KeyAscii As Integer)

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

 ...

End Sub

Sub PicMove()

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

Frm.Picture1.Width

End Sub

  VB 里每个控件一定会ToolTipText属性,我希望加带一行tcp连接就不能了。

  VB提供的系统控件一般一定会MousePointer和MouseIcon属性。亲戚亲戚大伙儿儿不能寻找另一方喜欢的.ICO,.CUR文件,实现的tcp连接如下:

  VB上面有个系统对象叫App。App.Path我希望当前软件的运行目录。而命令行参数存插进两个 多多 系统变量上面,叫Command。tcp连接一句话如下:

  VB的tcp连接代码是允许换行书写的,我希望在每次换行的最后两个 多多 字符加带换行字符“_”就不能了。例如:

  4、为什么在么在么实现鼠标一移上去就再次出現小提示窗口的功能?

  9、我希望窗体一运行就在屏幕的中央,为什么在么在么实现?

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

  6、我我应该 换掉鼠标显示的特性,为什么在么在么做?

 5、 怎么都可否获得当前软件的运行磁盘目录和命令行参数?

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

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

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

End Sub

  3、 Visual Basic 怎么都可否注释一段较长tcp连接代码?

  例如:

Private Sub Text1_GotFocus()

 Text1.SelStart = 0

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

End Sub