关于vb模块函数的调用，请高手解答
请看看以下导出文本文件的模块函数，我应该怎么在按钮点击事件中实现调用。
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String)
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim i As Long
Dim WritStr As String
Dim Fid As Long
Dim lngCount As Long ' 计数。
If TextFileName = "" Then TextFileName = App.Path & "\" & TableName & ".txt"
If objConn.State = 0 Then objConn.Open
rs.Open "select * from " + TableName, objConn
Fid = FreeFile
rs.MoveFirst
Open TextFileName For Output As #Fid
WritStr = ""
For i = 0 To rs.Fields.Count - 1
WritStr = WritStr & "" & rs.Fields(i).Name & ","
Next
Prin
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
要采集的页面：http://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1
我想把搜索出来的QQ都采集出来，该怎么做。看了下代码好像不是普通的那种，网址里把1改成2没用 ......
大家看看
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
http://topic.csdn.net/u/20091005/16/aa0a010f-1428-4eef-9886-684039e382f7.html?93089
蛋定
http://t ......
Private Sub fun()
Static a As Integer
A=a+1
Print a;
End Sub
Private Sub Command1_Click()
Dim m As Integer
&n ......
