vbÔõÑù¸øÍøÒ³¸½¼þ´¦INPUTÊäÈëÎļþµØÖ·
vbÔõÑù¸øÍøÒ³¸½¼þ´¦INPUTÊäÈëÎļþµØÖ·
<tr>
<td class="editLabel" colspan="3" align="right">
¸½¼þ: <input type=file size=50 maxlength=100 name="fileUpLoad" class="editButton">
</td>
</tr>
<iframe name="FileParameters" width=0 height=0 frameborder=0 > </iframe>
ÀÏÂíµÄblogÀïÓÐ×Å·½ÃæµÄ£¬È¥²Î¿¼Ò»ÏÂ
VB code:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Clipboard.SetText "c:\boot.ini"
If WebBrowser1.Object Is pDisp Then
Dim objDoc As Object, objF As Object
Set objDoc = WebBrowser1.Document
Set objF = objDoc.getElementsByName("fileUpLoad")(0)
objF.focus
DoEvents
SendKeys "^v"
End If
End Sub
ÉÏÃæµÄÓï¾äûÎÊÌ⣬¿ÉÊÇÓиö²»ºÃµÄµØ·½¾ÍÊǸô°¿Ú±ØÐëΪ×î¶¥¶Ë´°¿Ú£¬²»Äܺǫ́ÔËÐÐ
ÓиüºÃµÄ·½·¨Âð£¿
ÔÚ¾ÍÀÏÂíµÄBLOGµØÖ·ÊǶàÉÙлл£¡£¡ÎÒÔõôÕÒ²»µ½¡£
¸üºÃµÄ·½·¨£¬¾ÍÊǸù±¾²»Óà webbrowser
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......