Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
For m=1 To 3
Call fun
Next ......
vb中怎样实现像vb.net异常处理(try....Catch ex As Exception...end try)功能?
友情帮顶
无非是On error Goto 和Err.Number判断吧?
想用vb6.0实现以下vb.net的功能:
dim str as string '这个一个应用程序或者是一个网址
Try
System.Diagnostics.Process.Start(str)
Catch ex As ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:445274427@qq.com
要帮你改出来估计你得去外包了
或者谁有闲工夫没准也能花点时间给你弄出来
我 ......
请看看以下导出文本文件的模块函数,我应该怎么在按钮点击事件中实现调用。
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String)
Dim rs As New ADODB.Recordset
Set rs ......
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 3 ’刪除
Dim YesNo As String
  ......
VB能否把Control对象转为一个TEXTBOX对象?
VB.NET 有个CType函数,VB没有类似的?
只有转换变量的,似乎没发现有转换控件类型的
Dim txt As Control
Set txt = Text1
Debug.Print txt.Text
这样还行.
msdn上这样说:
Control 对象
&nb ......