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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£
·½·¨2£ºÊ¹ÓÃSetu ......
ÒªÓÃ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¾Í±íʾ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......