VBÄÜ·ñ°ÑControl¶ÔÏóתΪһ¸öTEXTBOX¶ÔÏó£¿
VBÄÜ·ñ°ÑControl¶ÔÏóתΪһ¸öTEXTBOX¶ÔÏó£¿
VB.NET ÓиöCTypeº¯Êý£¬VBûÓÐÀàËÆµÄ£¿
Ö»ÓÐת»»±äÁ¿µÄ,ËÆºõû·¢ÏÖÓÐת»»¿Ø¼þÀàÐ͵Ä
Dim txt As Control
Set txt = Text1
Debug.Print txt.Text
ÕâÑù»¹ÐÐ.
msdnÉÏÕâÑù˵£º
Control ¶ÔÏó
ËùÓÐ Visual Basic ÄÚ²¿¿Ø¼þµÄÀàÃû¡£
Óï·¨
Control
˵Ã÷
¿ÉÒÔ½«Ò»¸ö±äÁ¿±êΪ Control ¶ÔÏó£¬ÏóÒý°Ñ¿Ø¼þ·Åµ½´°ÌåÉϵÄÒ»ÑùÀ´ÒýÓÃËü¡£ÏÂÃæ¶Ô´Ë½øÐÐÑÝʾ£º
Dim C as Control
Set C = Text1
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
´ó¼Ò°ïæ¿´Ï£¬ÔÚVBÖÐÓиö±äÁ¿str=0.00016ÈçºÎ¼ÆËãÈÃËü±ä³ÉÊÇ1.6*10µÄ4´Î·½
»¹ÓиöÎÊÌâÊǹØÓÚÊý¾Ý¿â²éѯµÄ
ÔÚACCESSÖÐÈçºÎ²éѯʱ£¬ÅжÏ×Ö¶Î1ÊÇ·ñΪ¿ÕÈç¹ûÊÇÔò²éѯ×Ö¶Î2
ÔÚSQLÖÐÓ¦¸ÃÊÇselect case ×Ö¶Î1 isn ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Çë¿´¿´ÒÔϵ¼³öÎı¾ÎļþµÄÄ£¿éº¯Êý£¬ÎÒÓ¦¸ÃÔõôÔÚ°´Å¥µã»÷ʼþÖÐʵÏÖµ÷Óá£
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String) ......