Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÐÂÊÖÇë½ÌÏ´úÂëÖйØÓÚobjectÀàµÄÏà¹ØÎÊÌâ¡£

±¾ÈËÔÚ¿´´úÂë×ÔѧVB£¬¸Ð¾õobjectÀàÀïµÄһЩ¶«Î÷MSDN²é²»Çå³þ£¬ÌØÀ´Çë½ÌÒ»ÏÂ
ÕâÀïÊÇÒ»¶Î¹ØÓÚÊý¾Ý¿â±à³ÌµÄ´úÂ룺
Public IrisLocation As Object
Public Sub Main()
Dim CustPicts As ADODB.Connection
Dim Forms As ADODB.Recordset
Dim strFind As Object
¡£¡£¡£ÖмäÊ¡ÂÔ¡£¡£¡£
Forms.Open("Forms", CustPicts, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
Forms.MoveFirst()
        strFind = "Form = 'Database'"
Forms.Find(strFind)
With Forms
IrisLocation = .Fields("Line1").Value
End With
                  ¡£¡£¡£¡£Ê¡ÂÔ¡£¡£¡£¡£

End Sub

¶ÔÓÚÓï¾ä
strFind = "Form = 'Database'"
ºÍIrisLocation = .Fields("Line1").Value ²»Ì«Àí½âÊÇʲôÒâ˼£¬ÖªµÀµÄÄܽâÊÍÏÂÂð£¬Ð»Ð»¡£
strFind = "Form = 'Database'"
Õâ¸öÔÚreocrdsetÀïÃæ½¨Á¢ÁËÒ»¸öfilter,ÏÂÃæµÄÓï¾ä¾ÍÊǸù¾ÝÕâ¸ö½øÒ»²½²éÕÒ

IrisLocation = .Fields("Line1").ValueÕâ¸ö¾ÍÊǰÑrecordsetÀïÃæµÄline1Õâ¸öÁеÄÖµIrisLocation


¶àлÁË£¬LSµÄ¡£²»¹ýÎÒ¶ÔÓÚfilter»¹ÊÇÁ˽âµÄ²»¹»¡£
ÄDZÈÈç˵ÏÂÃæÕâ¶Î´úÂëÀ
Sub Find_Database(ByRef CommDial As Object)
Dim CommDialCancel As Object
Dim Custs As ADODB.Connection
Dim Frms As ADODB.Recordset



Ïà¹ØÎÊ´ð£º

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ