(VB学习心得.docVIP

　第一个为英文大、小写字母，后面跟着若干数字、英文大小写字母，下划线_或美圆符号$，总长度不要超过255个。在Basic语言里，标识符不分字母大小写。另外，在电脑语言中，预先定义了一些标识符，以作专门用途，我们称之为关键字，所以，您命名的标识符不能与关键字相同。还有一种情况也必须注意，那就是在同一个作用域内不允许定义相同的标识符。VB codeprivate sub frm_day_load()? ? dim rs as new adodb.recordset? ? dim i as long? ? rs.open select 班别 from bb,conn,adopenkeyset,adlockreadonly? ? combobox.clear? ? for i =1 to rs.recordcount? ? ? ? combobox.additem rs.fields(班别).value ? ? ? ? rs.movenext? ? next i? ? rs.closeend sub Text1.Text = Text1.Text CStr(Input5000(ii)) 这个是 A$ = Address: Str(j) - Hex(Input5000(ii)) (hex) vbCrLf 两个双引号之间的是显示在屏幕上的。两个之间的是要显示出的参数， vbCrLf Msg$ = Msg$ A$ 这个的意思就是上面显示出的要一行显示的。不能换行的。 txtMsg.Text = Msg$ j = j + 1 Next i Text1.Text = Text1.Text vbCrLf Msg$ 查一下这个函数的用法ADAMTCP_Write5KDO txtIPAddress.Text 就是获取写在对话框中地址的文字 txtCount.Text 就是获取写在对话框中的数的数字 cboModuleName.Text 就是获取写在对话框中的 txtID.Text 什么时候加txt。什么时候不加啊，就是标识符+Text就是获取输入框的字符。红的都是标识符。 txtVersion.Text = Hex(RetVal) wModuleName = Val(cboModuleName.Text) wIDAddr = Val(txtID.Text) 这个是获取txtid。Text的字符串的数字。Val（）就是获得括号中的字符串或者数字的详细。比如为13456fhhj。则赋值时为13456. wStartDO = Val(txtStartDO.Text) wCount = Val(txtCount.Text) wData(i) = Val(h + txtData(i).Text) 这个就是把h和后面的书写的数据写在一块。强制的把其变成16进制，比如textdata=17 则有如下动作： 17转换成16进制为前面都是零，接着下面为转为十进制，则为：1+2+4+16=22 则wdata（）=22 RetVal = ADAMTCP_WriteReg(IPAddress, wID, wStartAddress, wCount, wData(0))中的retval要想传输正确。则wdata（0）必须是偶数。此时retval传输才是正确的。 vb中定义一个带参数 private function 函数名（参数列表） 如： private Function comparing(int a,int b) Private Sub Max(a As Integer, b As Integer) If a = b Then Max = a Else Max = b End If End Sub Private j as Integer 这里这个j在此代码编辑框内的所有横线内都生效,但在其它代码编辑框无效 Public k as Integer 这里这个k在本工程内所有代码编辑框内都生效. Dim x as Integer 这里这个x在此代码编辑框内的所有横线内都生效,但在其它代码编辑框无效 _______________________________________ Private Sub Command1_Click() Dim i as Integer 这里这个i只在这两条横线内生效,dim的作用就在这两条线