Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÔõôÔÚvs08ÖÐÓÃvb±àдһ¸ö¼Çʱ¾ÄØ£¿ - VB / »ù´¡Àà

ÓÃvbдһ¸öºÍwindowsµÄ¼Çʱ¾²î²»¶à¹¦ÄܵľÍokÁË

Private Sub ±£´æToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ±£´æToolStripMenuItem.Click
  'OpenFileDialog1.Filter = "Îı¾Îĵµ(*.txt)|*.txt|RTFÎĵµ(*.rtf)|*.rtf|ËùÓÐÎļþ(*.*)|*.*"
  ' OpenFileDialog1.
  AxCommonDialog1.Filter = "Îı¾Îĵµ(*.txt)|*.txt|RTFÎĵµ(*.rtf)|*.rtf|ËùÓÐÎļþ(*.*)|*.*"
  AxCommonDialog1.ShowSave() 
  FileType = AxCommonDialog1.FileTitle '¸ñʽ
  ' FiType = LCase(Right(FileType, 3)) 'ÕâÀïÔõôд?  
  filename = AxCommonDialog1.FileName

  Select Case FiType
  Case "txt"
  RichTextBox1.SaveFile(filename, RichTextBoxStreamType.TextTextOleObjs)
  'Óÿոñ´úÌæ OLE ¶ÔÏóµÄ·á¸»Îı¾¸ñʽ£¨RTF ¸ñʽ£©Á÷¡£¸ÃÖµÖ»ÔÚÓÃÓÚ RichTextBox ¿Ø¼þµÄ SaveFile ·½·¨Ê±ÓÐЧ¡£
  Case "rft"
  RichTextBox1.SaveFile(filename, RichTextBoxStreamType.RichNoOleObjs)
  '¾ßÓÐ OLE ¶ÔÏóµÄÎı¾±íʾÐÎʽµÄ´¿Îı¾Á÷¡£¸ÃÖµÖ»ÔÚÓÃÓÚ RichTextBox ¿Ø¼þµÄ SaveFile ·½·¨Ê±ÓÐЧ¡£
  Case "*.*"
  RichTextBox1.SaveFile(filename)
  End Select
  Me.Text = "¼Çʱ¾" + filename
 


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb²Ù×÷excel - VB / »ù´¡Àà

ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
  A 3
  A 4
  B 6
  ... ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ