VBÓëVBAµÄÎÊÌâ
1.ÎÒ¿´µ½Ò»¸öVB³ÌÐò˵ÊÇÕâ¸ö³ÌÐòÓÃÁËVBA£¬ÎÒ´ó¸Å¿´ÁËÏÂVBA¸ÅÄ˵ÊÇÒ»ÖÖÀàËÆÓں궨Ò壬ÊôÓÚÒ»ÖÖÓïÑÔ¡¡ÄÇVB³ÌÐòÖпÉÒÔÓÐVBAÓï¾äÂð£¬Õâ¸ö³ÌÐòÖгöÏÖÁË£ºa.PageSetup.TopMargin = a3
a = Word.Documents.Open(¡¡£©
a.Range(h1, h1 + 1).Font.Name = a2
ÕâһϵÁеÄÓï¾ä£¬ÕâÊÇÊôÓÚVBA´úÂëÂð£¿
2.ÎÒÏëÓÃC#×öÒ»¸öWORD²Ù×÷¿¼ÊÔµÄ×Ô¶¯ÆÀ·Öϵͳ£¬Ë¼Â·Ó¦¸ÃÔõÑù£¬ÇëÖ¸½Ì£¡ {{
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......