3 1 2 3 4 5 6 7 8 9 10 Windows 1
70 Microsoft Visual Basic 2008 3
3 71 1 Size Size q Form1 Form1.vb Form1.vb w 464452 Size OS
72 Microsoft Visual Basic 2008 Windows FormBorderStyleSizable 2 q Form1 w MinimumSize e WidthHeight Width464 Height452 q Form1 2 Form1_Load w Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Width = 464 Me.Height = 452 Me.MinimumSize = New Size(464, 452) ToolStripProgressBar1.Visible = False spantime = 1
3 73 Me.WidthMe.HeightForm1Me Form1 Me.MinimumSizeMinimumSizeSize New Size(464,452)NewSize Form1_Load spantime = 1 60 Form1_Load1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Width = 464 Me.Height = 452 Me.MinimumSize = New Size(464, 452) ToolStripProgressBar1.Visible = False CD-ROM New
74 Microsoft Visual Basic 2008 2 MenuStrip q MenuStrip w MenuStrip1 q w (&F)g (&F) a
3 75 -...3 b1 d1 d
76 Microsoft Visual Basic 2008 3 c ShortcutKeys q w ShortcutKeys e Ctrl r N t g ShortcutKeys CtrlN CtrlO CtrlS ShortcutKeys CtrlX CtrlC CtrlV CtrlA CtrlF CtrlH
3 77 Name 4 Click q Name w Name Name Name mnufile mnufilenew mnufileopen mnufilesave mnufilesaveas mnufilepagesetup mnufilepreview mnufileprint mnufileexit mnuedit mnueditundo mnueditcut mnueditcopy mnueditpaste mnueditselectall mnueditfind mnueditreplace mnutool mnutooltimer mnuoption mnuoptionfont mnuoptionfontnormal mnuoptionfontbig mnuoptionfontsmall mnuhelp mnuhelpindex mnuhelpabout
78 Microsoft Visual Basic 2008 C
3 79 5 Windows1 7 q ToolStripContainer w ToolStripContainer1 e r ToolStripContainer Dock ToolStrip
80 Microsoft Visual Basic 2008 ToolStrip q ToolStrip w ToolStrip1
3 81
Microsoft Visual Basic 2008 82 Dock Anchor C
3 83 6 2 TabControl Dock q TabControl w TabControl1 e TabControl1 r Dock t TabControl1 DockFill
84 Microsoft Visual Basic 2008 TabPages q TabControl1 w TabPages... TabPage e TabPage1 r TabPage1 Name TabEditor Text t TabPage2 Name TabDiary Text y OK
3 85 7 TextBox q TextBox w TabControl1 TextBox1TabControl1 TabEditor 1 g TextBox1 AcceptsTab True t Multiline True ScrollBars Vertical AcceptsTabtFalse MultilineTrue gscrollbars
86 Microsoft Visual Basic 2008 DockFillPadding 8 q w Padding All8g q TextBox1 w Dock e DockFill Padding Padding 8
3 87 MaxLength 32767 b d t s 1 1
88 Microsoft Visual Basic 2008 C Word
3 89 8 MenuStrip q w e Private Sub mnufileexit_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnufileexit.click Me.Close() mnufileexit_click Fomr1 MeClose
90 Microsoft Visual Basic 2008 q Form1.vb w mnutool Timer_Click e Private Sub mnutooltimer_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnutooltimer.click TimerStart()
3 91 9 7 Windows TextBox TextBox1 TextBox1.Copy TextBox1.Cut TextBox1.Paste TextBox1.SelectedText TextBox1.SelectionLength Clipboard Clipboard.SetDataObject(TextBox1.SelectedText) Clipboard.GetDataObject() TextBox1
92 Microsoft Visual Basic 2008 Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) GetDataObjectGetDataPresent TrueFalse DataFormats.Text q Form1.vb w mnueditcopy_ Click Private Sub mnueditcopy_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnueditcopy.click EditCopy() EditCopy e End subprivate sub Edit Copyg r Private Sub EditCopy() If TextBox1.SelectedText <> "" Then TextBox1.Copy() End If
3 93 mnueditcopy_click EditCopy EditCopyIfTextBox1 TextBoxCopy Word mnueditcut_click EditCut Private Sub mnueditcut_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnucut.click EditCut() EditCut Private Sub EditCut() If TextBox1.SelectedText <> "" Then TextBox1.Cut() End If If TextBoxCut EditPastemnuEditPaste_Click Private Sub mnueditpaste_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnueditpaste.click EditPaste()
94 Microsoft Visual Basic 2008 EditPaste Private Sub EditPaste() If My.Computer.Clipboard.GetDataObject.GetDataPresent(DataFormats.Text) Then TextBox1.Paste() End If If My.Computer. My EditSelectAllmnuEditSelectAll_Click Private Sub mnueditselectall_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnueditselectall.click EditSelectAll() EditSelectAllSelectAll Private Sub EditSelectAll() TextBox1.SelectAll() EditUndomnuEditUndo_Click Private Sub mnueditundo_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnueditundo.click EditUndo() EditUndoUndo Private Sub EditUndo() TextBox1.Undo()
3 95 2 WindowsWord WordEditUndo Private Sub EditUndo() TextBox1.Undo() TextBox1.ClearUndo() ClearUndo ClearUndo 76
96 Microsoft Visual Basic 2008 2 MenuItemEnabled False 2 q mnuedit w MouseDown mnuedit_mousedown e Private Sub mnuedit_mousedown(byval sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mnuedit.mousedown If TextBox1.CanUndo Then mnueditundo.enabled = True Else mnueditundo.enabled = False End If If TextBox1.SelectionLength > 0 Then mnueditcopy.enabled = True mnueditcut.enabled = True Else mnueditcopy.enabled = False mnueditcut.enabled = False End If If My.Computer.Clipboard.GetDataObject.GetDataPresent(DataFormats.Text) Then mnueditpaste.enabled = True Else mnueditpaste.enabled = False End If
3 97 IfUndoCanUndo UndoTrueFalse 2IfSelectionLength 0SelectionLength EditCopyEditCut SelectedText SelectionLength 3IfEditPasteIf PopupEnabled IfEditCopyEditCutEditPaste3 IfEditCopyIf EditCopyEditCutEditPaste 7
98 Microsoft Visual Basic 2008 10 3 MenuItemCheckedTrue False Font Font Font Font Font Font NewFont MS UI Gothic10 TextBox1.Font = New Font("MS UI Gothic", 10) Font FontFont New Font()Font
3 99 3 mnuoptionfontnormal_clickoptionfont Normal Private Sub mnuoptionfontnormal_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnuoptionfontnormal.click OptionFontNormal() OptionFontNormal Private Sub OptionFontNormal() TextBox1.Font = New Font("MS UI Gothic", 10) mnuoptionfontnormal.checked = True mnuoptionfontbig.checked = False mnuoptionfontsmall.checked = False TextBox1FontFontMS UI Gothic10 " 3Checked TrueFalse mnuoptionfontbig_clickoptionfontbig Private Sub mnuoptionfontbig_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnuoptionfontbig.click OptionFontBig()
100 Microsoft Visual Basic 2008 OptionFontBig OptionFontBig12 Private Sub OptionFontBig() TextBox1.Font = New Font("MS UI Gothic", 12) mnuoptionfontnormal.checked = False mnuoptionfontbig.checked = True mnuoptionfontsmall.checked = False OptionFontNormal mnuoptionfontsmall_clickoptionfontsmall Private Sub mnuoptionfontsmall_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles mnuoptionfontsmall.click OptionFontSmall() OptionFontSmall OptionFontSmall8 Private Sub OptionFontSmall() TextBox1.Font = New Font("MS UI Gothic", 8) mnuoptionfontnormal.checked = False mnuoptionfontbig.checked = False mnuoptionfontsmall.checked = True
3 101 10 FontSize Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Width = 464 Me.Height = 452 Me.MinimumSize = New Size(464, 452) ToolStripProgressBar1.Visible = False TextBox1.Font = New Font("MS UI Gothic", 10) mnuoptionfontnormal.checked = True
Microsoft Visual Basic 2008 16 C
Microsoft Visual Basic 2008 20 2 C
2 21 Visual Basic 2008
130 Microsoft Visual Basic 2008 C Dim finfo As System.IO.FileInfo Dim f1,f2,f3,f4 As String finfo = My.Computer.FileSystem. GetFileInfo("c:test.txt") ' f1 = finfo.name ' f2 = finfo.directoryname '() f3 = finfo.fullname ' f4 = finfo.extention Dim finfo As System.IO.FileInfo Dim f1 As Long finfo = My.Computer.FileSystem. GetFileInfo("c:test.txt") ' f1 = finfo.length Dim finfo As System.IO.FileInfo Dim f1 As Boolean finfo = My.Computer.FileSystem. GetFileInfo("c:test.txt") ' True f1 = finfo.exists Dim finfo As System.IO.FileInfo Dim f1,f2,f3 As DateTime finfo = My.Computer.FileSystem. GetFileInfo("c:test.txt") ' f1 = finfo.creationtime ' f2 = finfo.lastwritetime ' f3 = finfo.lastaccesstime