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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
VBÈçºÎÅжÏÒ»¸ö¿Ø¼þÊÇ·ñÎı¾¿ò£¬ÊÇ·ñÊÇ×éºÏ¿ò£¿
ÕÒµ½´ð°¸£¬½áÌù
TypeOf
½Ó·Ö.
VB code:
dim o
for each o in controls
debug.print typename(o)
next
µäÐ͵ĵ¹·ÖÌù£¡
5Â¥Õý½â£¡
If ......
vbÖÐÔõÑùʵÏÖÏñvb.netÒì³£´¦Àí(try....Catch ex As Exception...end try)¹¦ÄÜ£¿
ÓÑÇé°ï¶¥
ÎÞ·ÇÊÇOn error Goto ºÍErr.NumberÅжϰÉ?
ÏëÓÃvb6.0ʵÏÖÒÔÏÂvb.netµÄ¹¦ÄÜ£º
dim str as string 'Õâ¸öÒ»¸öÓ¦Ó ......