gaifuzhi
我用VB6制作的记事本不能写字
Private Sub Form_Load()gaibian = FalseEnd SubPrivate Sub Form_Resize()Text1.Width = Form1.ScaleWidthText1.Height = Form1.ScaleHeightEnd SubPrivate Sub fuzhi_Click()Cl...
VB文本编辑器代码
VB文本编辑器代码要代码，要代码，有实例的话最好Dim gaibian As Boolean Dim shijian As String Private Sub baocun_Click() CommonDialog1....") If c = vbOK Then baocun_Click Else End End If End If End Sub Private Sub fuzhi_Click() Clipboard.Clear Clipboard.SetText Text...