vb Ôõôö¾Ù³öÔÚÒ»¸öframeÀïµÄ¿Ø¼þ£¿
Åжϸ¸¿Ø¼þ
µÝ¹éö¾Ù
VB code:
Private Sub Command1_Click()
Dim ctrol As Control
For Each ctrol In Me.Controls
If ctrol.Container Is Frame1 Then
Debug.Print ctrol.Name
Debug.Print TypeName(ctrol)
De ......
ÔõôÎÒ°ÑÕâ¶Î´úÂë¸´ÖÆµ½´°ÌåµÄ´úÂë¶ÎÖгöÏÖ±àÒë²»Á˵ÄÇé¿ö
ÉÏÃæµÄ´úÂëÊÇ´ÓMSDNÉϸ´ÖƵÄ..£¿£¿£¿ÇëÎÊ£¬Òª¸øÊý×鸺³õÖµ¸ÃÔõÑù¸ºÖµ¡·¡£Çë¸ßÊÖ¾ÙЩÁÐ×Ó..
set arr()=empty
Êý×éµÄ¸÷¸öÔªËØÀàÐÍÊÇÒ»ÑùµÄ¡£ÓÃÒ»¸öÑ»·¾Í¿É¸³³õÖµ¡£Èç¹ûÊÇbooleanÀàÐÍÊý×飬²»ÐèÒª¸³³õÖµ£¬È«²¿ÎªFalse¡£
ÄÇÊÇVB.netµÄ.VB6 ......
ͼÖеijÌÐòÔõôÔËÐв»ÁË£¬Çë¸ßÊÖÖ¸³ö´íÎ󣬸ÃÈçºÎ¸ÄÕý
ËäÈ»ÎÒ²»ÊǸßÊÖ£¬ºÍÄãÒ»ÑùÊÇÐÂÊÖ£¬²»¹ýÄãµÄͼƬ¿´²»µ½ÄØ
ÎÒ¿´ÁËÄãµÄͼƬ£¬ÏëÎÊһϣ¬ÄãÓõÄÊÇVB.Net»¹ÊÇVB6,Èç¹ûÊǺóÕߣ¬ÄÇôÄãÓ¦¸ÃºÃºÃѧһÏÂÓï·¨£¬VB6Öзµ»Øº¯ÊýÖµÓ㺺¯ÊýÃû=Öµ£¬¶ø²»ÊÇReturn£¬¼´£ºAddTwoNumbers=N1+N2
ÄãµÄͼƬÔÚ±¾ÂÛ̳ÉÏûÓÐÏÔʾ³öÀ´£ ......
ͼÖеĴúÂëΪʲô²»ÄÜÔËÐУ¬ÒªÈçºÎÐ޸ģ¬Çë¸ßÊÖ°ïæд³ö´úÂ룬ллÁË
VB6²»ÄÜʹÓÃRETURN
ÄãÓ¦¸ÃÖ±½Ó AddTowNumbers = N1 + N2
RETURN Ò²²»µ¥µ¥ÊÇCµÄ
VB.NETÒ²¿ÉÒÔÓÃreturnµÄ
ÒýÓÃ
return ÊÇCµÄ£¬
VBÖÐÖ±½ÓÓÃ
º¯ÊýÃû=xxx
AddTowNumbers = N1 + N2
UP
......
ÄǸö´ó¸ç°ï°ïÎÒ ÎÒvb³ÌÐòÖÐÓеãСÎÊÌâ ÔÚÎҵijÌÐòÖÐн¨Ì×ÕÊÊDz»ÄÜÔÙÁбíÖÐÁ¢¼´ÏÔʾн¨µÄÌ×ÕÊ Õâ¸öÀïÃæ²»ÄÜÓÃË¢ÐÂÀ´ÊµÏÖ ÎÒ¸ÃÔõô½â¾ö ÎҵijÌÐòÈçÏ£º
Private Sub Add_Click()
If cnn.State = 1 Then cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI; ......
Ò»¸öĿ¼Óкܶàexcel±í¸ñ£¬³¬¹ý200¸ö£¬¸ñʽ¶¼ÊÇÒ»ÑùµÄ£¬excelÎļþÀïÓкܶàtextbox£¬±ÈÈçtextbox1£¬textbox2µÈ£¬textboxÖ»ÄÜÌî0£¬1Êý¾Ý£¬Äܲ»Äܱàдһ¸övb³ÌÐò£¬¶ÁÈ¡Õâ¸öĿ¼ÀïµÄÕâЩtextbox²¢Í³¼ÆÔÚvb¶ÔÓ¦µÄtext¿òÀ±ÈÈçÕâÑù£¬Óиö±í½Ð¡°±í1¡±£ºÓÐ20¸ötextbox£¬·Ö±ðÊÇtextbox1£¬textbox2.¡£¡£ÁíÒ»¸ö±í½Ð¡°±í2¡±£ºÒ²ÓÐ20¸ö ......