VB记事本程序设计

, c)РText1.SelStart = d - 1РText1.SelLength = Len(c)РEnd SubРPrivate Sub DK_Click() ‘打开按钮代码РDim b As StringРDim c As StringРCmD1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"РCmD1.ShowOpenРb = CmD1.FileNameРOpen b For Input As #1РDo While EOF(1) = FalseРLine Input #1, cРText1.Text = Text1.Text + c + vbCrLfРLoopРClose #1РEnd SubРPrivate Sub DY_Click() ‘打印按钮代码РCmD1.ShowPrinterРEnd SubРPrivate Sub Form_Resize() ‘特殊代码РText1.Width = 记事本程序.WidthРText1.Height = 记事本程序.HeightРEnd SubРPrivate Sub FZ_Click() ‘复制按钮代码РClipboard.Clear ‘把剪切板先清空РClipboard.SetText Text1.SelText ‘剪切板的选中东西为文本框中的选择内容РEnd SubРPrivate Sub GB_Click() ‘关闭按钮РText1.Text = ""РEnd SubР РPrivate Sub JQ_Click() ‘剪切按钮代码РClipboard.ClearРClipboard.SetText Text1.SelTextРText1.SelText = ""РEnd SubРPrivate Sub LCW_Click() ‘另存为按钮代码РCmD1.ShowSave