vb 2008 FileGet()º¯ÊýÈçºÎʹÓã¿
VB.NET code:
Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim str() As String = CType(e.Data.GetData(DataFormats.FileDrop, False), String())
Dim data(8)
TextBox1.Text = str(0)
FileSystem.FileOpen(1, str(0), OpenMode.Binary, OpenAccess.Read, OpenShare.LockReadWrite)
FileGet(1, data)
FileClose(1)
For i = 0 To 8
TextBox1.Text = TextBox1.Text & data(i)
Next i
End Sub
Óöϵãµ÷ÊÔ£¬½á¹û±íÃ÷×îºóÖ´ÐеÄÓï¾äÊÇFileGet(1,data)£¬¸Ã¾äÔÙÍùϾͺÃÏñÊÇÓÃÁËExit subÒ»Ñù£¬È«²¿Ã»ÓÐÖ´ÐÐ
ºÎ½â£¿´ó´óÃÇÒª¾È¾ÈÎÒ°¡~~~~~~~~~~
streamreaderÈçºÎʹÓã¿»¹Íû´ó´ó¶à¶àÖ¸µã
¶øÇÒÎÒÐèÒª¶ÁÈë¶þ½øÖÆÊý¾Ý¶ø²»ÊÇ×Ö·û
http://blog.csdn.net/hahanan1987/archive/2009/03/05/3959469.aspx
ÎÒÖªµÀÁË£¬ÎÊÌâÓÃbinaryreader½â¾öÁË¡£
µ«ÊÇ»¹ÏëÁ˽âһϣ¬ÎªÊ²Ã´VB 2008¾Í²»ÄÜÓÃVB 6µÄÓï·¨ÁËÄØ£¿º¯Êý¼ÈÈ»´æÔÚÈ´ÓÖʹÓò»Õý³££¿·Ç³£À§»ó
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õʼ×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......