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

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 

text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©

µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦

²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ

´óϺÃÇ£¬°ï°ïæ
Ö±½ÓÃüÁîÐе÷ÓÃVBµÄ±àÒëÆ÷½øÐбàÒë

µ¥¶ÀÈ¥µÄ Form2 ÊÇÎÞ·¨Í¨¹ý±àÒëµÄ,±ØÐëÐèÒª¹¤³ÌÎļþ.

Ï൱ÓÚ,Äã°Ñ¹¤³ÌÎļþ/FORM2µÄÔ´Îļþ¶¼·ÅÖÃÔÚtext8 ºÍ textX ÖÐ,µãÒ»command1.¾Í°ÑÕâЩÎı¾±£´æµ½³ÌʽÔËÐÐĿ¼ÏÂ,È»ºóÓÃÃüÁîÐе÷ÓÃVB6.EXEÈ¥±àÒëÕâ¸ö¹¤³Ì.

¹¤³ÌÎļþÖоͱ£´æÁËÄãÐèÒªÉ趨µÄ" ²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ"

˼·¾ÍÊÇÕâÑù,¾ßÌå»áÓõ½VB6.EXE ÃüÁîÐе÷ÓÃ.
ÆäËûµÄûʲôÄѶÈ.

²»ÖªµÀÄãÊÇÒªÐÞ¸ÄÒ»¸öÒѾ­Éú³ÉµÄexe£¬»¹ÊÇ×Ô¶¨Òå±àÒë¹ý³Ì¡£

vbp frm¶¼ÊÇÎı¾¸ñʽ£¬¿ÉÒÔ×ÔÓɶÁд£¬È»ºóµ÷ÓÃVB±àÒëÆ÷±àÒë¼´¿É¡£

Â¥Ö÷COM¿ª·¢Êì²»,¿´ÄãÕâÇé¿ö,Çé¿ö¿É×ö¸öIDE²å¼þ°¡


Èçͼ
µ¥»÷form1ÖеÄcommand1ºó
Éú³Éa.exeÓëd:\
²¢ÇÒÉú³ÉµÄexe
²úÆ·Ãû=text1 ¹«Ë¾Ãû=text2 ºÏ·¨°æÈ¨=text3 ºÏ·¨É̱ê=text4 ÎļþÃèÊö=text5 ×¢ÊÍ=text6 ±êÌâ=text7
EXEÖÐÖ»ÓÐform2²¢ÇÒform2µÄÔ´´úÂëΪtext1ÖеÄ

Ò²¾ÍÊÇ˵
ÎÒÏë×öÒ»¸ö¿ò¼Ü
Óû§¿ÉÒÔÓÃÎÒ³ÌÐòµÄ¿ò¼ÜÉú³É³ÌÐò

½¨ÒéÂ¥Ö÷дһ¸öVB6.0µÄAddin

ÒªÇó¾ÍÀàËÆÒ»¸öÏòµ¼³ÌÐò¡£ÓÃVB6.0µÄAddinд¸ö²å¼þ¿ÉÒÔʵÏÖ¡£µ÷ÓñàÒëÆ÷¶ÔÏóºÜºÃʵÏÖ
VB code:

Dim oVBProjects As VBProjects, i As Integer


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ