VBÈçºÎÒþ²Ø¶à¸öÎļþ£¬
VBÈçºÎÒþ²Ø¶à¸öÎļþ£¬ÎÒÓÃÒÔÏÂÕâ¶Î´úÂ룬ÓÐʱºòºóÄÜÒþ²Ø£¬ÓÐʱºòÓÖ²»ÄÜÒþ²Ø£¬Èý¸öÎļþ
Private Sub Command1_Click()
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\1.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
Set f = fs.GetFile("c:\2.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
Set f = fs.GetFile("c:\3.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
end sub
»¹ÓÖÔõôɾ³ýÒþ²ØµÄÕ⼸¸öÎļþ£¬
ÓÃKILL ¡°1.TXT¡±É¾³ý²»ÁË
ѧϰ
ÎÒÓÃÒÔÏÂÕâ¶Î´úÂ룬ÓÐʱºòºóÄÜÒþ²Ø£¬ÓÐʱºòÓÖ²»ÄÜÒþ²Ø£¬Èý¸öÎļþ
¿ÉÒÔʹÓÃAPIº¯ÊýSetFileAttributesÀ´ÉèÖÃÎļþΪÒþ²ØµÄ¡£
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......