Source=你的数据库路径(比如c:\1.mdb);Persist Security Info=False"conn.OpenSet myRes = conn.Execute("select from 你的数据库表名")If Not myRes.EOF Then Text1.Text = myRes("A2")text2.Text = myRes("A3")End If 这样读出来的数据就算是你在TEXT中更改了，也不会影响到数据库，...
返回在另一字符串中第一次出现某一字符串的位置 eg: msgbox instr("a:"":我""",":") 结果为 2 Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As Long 返回在另一字符串中第一次出现某一...
For i = 0 To List1.ListCount - 1 Print #1, List1.List(i)Next Close #1 ' 关闭文件。End Sub Private Sub List1_DblClick() '双击读取数据到文本框 Dim tmp$()tmp = Split(List1.Text, d)If UBound(tmp) = 3 Then '如果数据正确 Text1 = tmp(0)Text2 = tmp(1)Text3 =...
意思就是以字符串的方式获取网页(地址为text1.text中的值)的源码，源码返回到text2.text中 其中：icstring为获取源码的方式。有icstring=0 和icbytearray=1 两种方式 icbytearray为字节数组的方式获取源码，下载文件是可用该方式。但注意保存成文件时想对应，应该用 binary 写文件 ...
shift中的任何一个相联系，因此text2.text显示的Chr(Asc(C)+2)的运算结果与“在文本框text1中输入字母时”（确切地说，是“抬起按下的某个键时”）无关，所以text2.text的显示不可能是“A,a,C,c”中的任何一个；②“dim C as integer”将变量C定义为integer（同时VB将自动将未显式赋值的...
不太明白你想说什麼,呃...如果是要取得两个textbox输入的内容的话...dim a,b as string a=textbox1.text b=textbox2.text 这样就能取得两个textbox里,用户输入的数据
Text1.Text = Format(Date, "yyyy年mm月")Text2.Text = Format(dateadd("m",-1,text1.text), "yyyy年mm月")或者 Text1.Text = Format(Date, "yyyy年mm月")Text2.Text = Format(dateadd("m",-1,Date), "yyyy年mm月")
text1.text中：text1是指一个名（name属性）叫"text1"的控件；text是指这个控件的text属性。比如在窗体上有一个textbox，名叫text1，要取得这个文本框里输入的文本，就用text1.text text不知你指的是什么
两个文本框分别为text1和text2 代码 dim i i=text1.text+text2.text msgbox"答案为" & i
abs这个是返回绝对子的看看你text1.text里的内容是不是数字，不是的话是错误 你这样写：Private Sub Command1_Click()Text2.Text = Abs(Text1.Text)End Sub Private Sub Form_Load()Text1.Text = "-123"End Sub