VB ÈçºÎµ÷ÓÃMessengerAPI?
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
ÕâÑùдÀÏÊÇÌáÐÑÎҿؼþ²»ÄÜ´´½¨¶ÔÏó£¡
Ϊʲô£¿£¿£¿
ûÓмû¹ý£¬£¬£¬
ÓÐûÓÐÒýÓöÔÏóÄØ£¿
Public WithEvents msn As Object
Private Sub Form_Load()
Set msn = CreateObject("MessengerAPI.Messenger")
End Sub
Òª°²×°msn£»
²éÒ»²éMessengerAPI.Messenger¶ÔÓ¦µÄ×é¼þÊÇʲô£¬ÊÖ¹¤×¢²áһϡ£
TechnoFantasy
ÕâλÈÊÐÖºÃÇ¿!
ÎÒÒѾÕý³£ÒýÓÃÁËMessenger API Type Libary
Private msnmsgr As IMessenger
Private Sub Form_Load()
Set msnmsgr = New MessengerAPI
End Sub
Õâ¶ÎÎÒÒ²ÊÔ¹ý£¬Ò»Ñù³ö´í¡£
Ïà¹ØÎÊ´ð£º
ÎÒÓÃ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=' ÒÑ´òÓ¡ ', ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail. huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.
¶¯ÊÖʵ¼ùд´úÂë,¾³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......