ÔõôÔÚ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
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......