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

vbÎÊÌâ Ë­ÄÜ°ï°ïÎÒ~~~

°ï°ïÎÒ~~~
vbµÄflash´°ÌåÔõô×ö°¡£¿Ë­ÓÐʵÀýѽ£¿
ÎÒÊdzõѧÕß

»¶Ó­³õѧÕß,°ï¶¥

¿´ÕâÀï

Ŷ ллÄã°¡

ÐÂÊÖÓ¦¸ÃÏÈ¿´¿´ÕâÀï

°ï¶¥

¹¤³Ì-Ìí¼Ó²¿¼þ-Adobe Flash ActiveX
È»ºó»­µ½´°ÌåÉÏ£¬ÉèÖÃswf·¾¶£¬OK¡£

VB°²×°ºó¾ÍÓÐô?

ÒýÓÃ
¹¤³Ì-Ìí¼Ó²¿¼þ-Adobe Flash ActiveX
È»ºó»­µ½´°ÌåÉÏ£¬ÉèÖÃswf·¾¶£¬OK¡£


ÄÇλ´ó¸çÓÐʵÀý°¡  ÎÒ¼±×ÅÓÃ

ÒýÓÃ
VB°²×°ºó¾ÍÓÐô?

ÒýÓà 6 Â¥ caozhy µÄ»Ø¸´:
¹¤³Ì-Ìí¼Ó²¿¼þ-Adobe Flash ActiveX
È»ºó»­µ½´°ÌåÉÏ£¬ÉèÖÃswf·¾¶£¬OK¡£


ÉÏcsdnµÄ£¬¾Í»á±Ä³öÒ»¸ö×°Flash CtrlµÄÌáʾ¡£

´ó¸ç
ÄãÃÇÓÐûÓÐʵÀýºÍ²½¾Û°¡?

ÎÒÉÏÍøµÄʱºò±Ä³öÈκζ«Î÷¶¼Ñ¡No
¹Ö²»µÃÎÒÕâ±ßVBÖÐûÓÐ

ÒýÓÃ
ÒýÓà 7 Â¥ getemail µÄ»Ø¸´:
VB°²×°ºó¾ÍÓÐô?

ÒýÓà 6 Â¥ caozhy µÄ»Ø¸´:
¹¤³Ì-Ìí¼Ó²¿¼þ-Adobe Flash ActiveX
È»ºó»­µ½´°ÌåÉÏ£¬ÉèÖÃswf·¾¶£¬OK¡£


ÉÏcsdnµÄ£¬¾Í»á±Ä³öÒ»¸ö×°Flash CtrlµÄÌáʾ¡£


ÄãÃÇ˵µÄÊÇʲôÒâ˼°¡£¿  ÎÒ¿´²»¶®


ÒýÓÃ
ÒýÓà 7 Â¥ getemail µÄ»Ø¸´:
VB°²×°ºó¾ÍÓÐô?

ÒýÓà 6 Â¥ caozhy µÄ»Ø¸´:
¹¤³Ì-Ìí¼Ó²¿¼þ-Adobe Flash ActiveX
È»ºó»­µ½´°ÌåÉÏ£¬ÉèÖÃswf·¾¶£¬OK¡£


ÉÏcsdnµÄ£¬¾Í»á±Ä³öÒ»¸ö×°Flash Ctrl


Ïà¹ØÎÊ´ð£º

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дµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VBÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ