vb listview СÎÊÌâ
CommonDialog1.Filter = "(*.txt)|*.txt"
CommonDialog1.DialogTitle = "ä¯ÀÀ"
CommonDialog1.ShowSave
Dim itmx As ListItem
Dim i As Integer
i = 1
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Set itmx = Liv_Sound.ListItems.Add()
itmx.Text = temp
Loop
Close #1
´ò¿ªÒ»¸öTXTÎļþ°´ÐжÁµ½listviewÖУ¬ÔõôlistviewµÚÒ»ÐÐ×ÜÊǿյġ£Ôõô½â¾öÄØ¡£
if trim(temp) <> "" then
Set itmx = Liv_Sound.ListItems.Add()
itmx.Text = temp
endif
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......