VB ¿Ø¼þÀà - VB / ¿Ø¼þ
vb ÖеÄrichtextbox¿Ø¼þÖÐÈçºÎÅжÏËüÊÇ·ñ´æÔÚÊý¾Ý£¬°üÀ¨ÓÐͼÐΣ¬¿ÉÄÜÈ«Êǿոñ
զûµÃ¸ßÊÖÖ¸½Ìѽ£¬¼±Ñ½
textrtf»¹ÊÇrtftextÀ´×Å
len(richtextbox.text) ÊÇ·ñ´óÓÚ 0
¶¼²»¶Ô°É
ѧϰѧϰ
ÅжÏÊÇ·ñÓÐÊý¾Ý
ÅжÏlen(richtextbox)ÊÇ·ñΪ0
¿Õ¸ñÈçºÎÅжÏ,ÀûÓÃÑ»· ÅжÏÊÇ·ñÿһ¸öµÄASCIIÖµ
ͼƬµÄ ¾Í²»ÏþµÃÁË..
¶àл£¬µ«ÊÇÎÊÌ⻹ÊÇû½â¾ö£¬»¹ÓÐÄÄλ¸ßÊÖ½â´ðÂð
ÄѵÀTextRTF»¹²»¹»?
Ä㻹¿ÉÒÔÏÈÅжÏtext,ÔÙÅжÏOLEObjects,ÕâÒ²²»ÐÐÂð?
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÒÏë°Ñ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
......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......