VB Îı¾¿ò
×Ö·û´® m1="E" ×Ö·û´® m2="F" Èç¹ûtext1.text=m1+m2µÄ»° Ôòtext1ÏÔʾµÄÊÇ EF µ«ÊÇÈç¹û ×Ö·û´® m1="E" ×Ö·û´® m2="6" Èç¹ûtext1.text=m1+m2µÄ»° Ôòtext1ÏÔʾµÄÊÇ E 6 £¨EºÍ6Ö®¼äÓиö¿Õ¸ñ Ôõô²»ÈÃÓпոñ£©
m1 & m2 ¹Ø±ÕÖÐÎÄÊäÈë·¨ÊäÈëE¾ÍûÕâ¸öÎÊÌâÁË ¶Ô×Ö·û´®µÄ´¦ÀíÀ´Ê飬+ºÍ&ûʲô²î±ð text1.text=trim(m1) & trim(m2) ÒýÓà text1.text=trim(m1) & trim(m2) 3Â¥Õâ¸ö»Ø¸´ÊÇÕýÈ·´ð°¸¡£ Ó¦¸ÃÒ»Ñù°¡ÒýÓà ¹Ø±ÕÖÐÎÄÊäÈë·¨ÊäÈëE¾ÍûÕâ¸öÎÊÌâÁË ¶Ô×Ö·û´®µÄ´¦ÀíÀ´Ê飬+ºÍ&ûʲô²î±ð ¸öÈËÈÏΪÕâ¸öÓеÀÀí¡£ µÄ確£¬Ê×ÏÈÒª確¶¨È«½Ç»ò°ë½â£¬ Èç¹ûÕæÊǶàÁËÒ»個¿Õ¸ñ£¬Ê¹ÓÃTrim()º¯數¾Í¿ÉÒÔ¡£ VB code: Private Sub Command1_Click() Dim m1 As String, m2 As String m1 = "E" m2 = "6" MsgBox m1 + m2 End Sub ÎÒ²âÊÔµÄ"E6" ˵Ã÷ÄãEµÄÊäÈëÓ¦¸ÃÔÚÈ«½Ç״̬Ï£¬µ«ÊÇÈç¹ûÊÇÕâÑùµÄ»°ÄãÒ²²»Ó¦¸Ã³öÏÖ"EF"¡£ ÎÞÂÛÔõÑù»¹ÊÇд´úÂ뻹ÊÇ×ÐϸΪÉÏÒýÓà µÄ確£¬Ê×ÏÈÒª確¶¨È«½Ç»ò°ë½â£¬ Èç¹ûÕæÊǶàÁËÒ»個¿Õ¸ñ£¬Ê¹ÓÃTrim()º¯數¾Í¿ÉÒÔ¡£
Ïà¹ØÎÊ´ð£º
login.aspx.vb: Public ReadOnly Property nameT() As String Get Return TextBox1.Text &nb ......
ÔÚVBÖУ¬ÈçºÎÖ´ÐÐÏÂÃæµÄSQLÓï¾ä Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber='0001' ±ÈÈ磺 cn.execute("Update t_Icitem Set f_102 = IsNull(f_102,0)+1 Where FNumber= ......
´úÂëÈçÏ£º Private Sub MSFlexGrid1_SelChange() If MSFlexGrid1.Rows = 1 Then Exit Sub If MSFlexGrid1.Row = 0 Then Exit Sub grid_row = MSFlexGrid1.Row ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......