vbµÄÒ»¸öСÎÊÌâ - VC/MFC / »ù´¡Àà
Private Sub Command1_Click()
mytext.Text = Str(taozi(1))
End Sub
Private Sub Form_load()
Dim begin As CommandButton
Dim mytext As TextBox
Set begin = Command1
Set mytext = Text1
mytext.Text = ""
begin.Caption = "È·¶¨"
End Sub
Public Function taozi(nihao As Integer) As Integer
taozi = nihao
For i = 1 To 7 Step 1
taozi = (taozi + 1) * 2
Next i
End Function
Ϊʲômytext.text´íÁË£¬Èç¹ûÔÀ´´°ÌåÉÏûÓÐcommand1ºÍtext1
¶øÎÒÏë×Ô¼ºÓÃset½¨Á¢¸ÃÈçºÎд¡£ÎÒÓÃset+new·¢ÏÖÓдíÎó!!
ÓÑÇé°ï¶¥£¬ÓÑÇé°ï¶¥
{{
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......