00问答网
所有问题
当前搜索:
vb记事本程序设计
怎么用
vb
做
记事本
答:
点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的
记事本
看看,是不是颇有成就感? 当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。 第二章 美化
程序
界面 多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外,还给用户带来操作上的便利。现在我们就来...
用
VB程序
编写
记事本
答:
cf.hwndOwner=Form1.hWnd'windowForm1isopeningthisdialogbox 'cf.hDC=Printer.hDC'devicecontextofdefaultprinter(using
VB
'smechanism)cf.rgbColors=RGB(0,0,0)'black cf.nFontType=REGULAR_FONTTYPE'regularfonttypei.e.notboldoranything cf.nSizeMin=10'minimumpointsize ...
用
VB设计
一个类似于Windows 操作系统附件中“
记事本
”功能的应用...
答:
Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化
程序
Private Sub Form_Load()'设置程序启动时的大小 Me.Height = 6000 Me.Width = 9000 End Sub '设置编辑框的位置和大小 Private Sub Form_Resize()On Error Resume Next '出错处理 RichTextBox1.Top=20 RichText...
VB
制作一个
记事本
的代码
答:
Private Sub Form_Resize() 'form窗体的重设尺寸 If Form1.Width - 150 > 0 Then '如果FORM1宽度减去150大于0 那么 Text1.Width = Form1.Width - 150 'text1宽度等于form1的宽度减去150 Else '否则 Text1.Width = 1 'text1宽度为1 End If '结束循环 If Me.Height - 696 > 0 Then '...
...一个简单
记事本
软件的
设计
与实现 用
vb
编写
答:
方法一:commondialog控件一个---comopen richtextbox一个,作为文本框 两个菜单:文件,下有新建,打开,保存,字体,退出,打印.编辑,下有查找,查找下一个 Option Explicit Public sFind As String Private Sub Form_Resize()'如果窗体不处于最小化RichTextBox1状态,改变RichTextBox1大小以适应窗体大小变...
用
VB
编
记事本
答:
If KeyCode =
vb
KeySpace Then RichTextBox1.SelFontName = CommonDialog1.FontName End If End Sub 至此,我们的
记事本
可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感? 当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。第二章 美化
程序
界面 ...
求用
VB
做一个
记事本
的简单
程序
答:
'定义过程openfile,用来实现打开文件的功能,供其他代码调用 '避免代码的重复编写 Sub openfile()'利用对话框控件设置“打开”对话框中可以选择的文件类型 cd1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"'利用对话框控件设置“打开”对话框中默认的文件过滤器为1,'即文本文件 cd1....
VB
实现Windows
记事本
功能
答:
Private Sub 编辑菜单名_Click()If 文字编辑区名.SelLength > 0 Then 复制子菜单名.Enabled = True 剪切子菜单名.Enabled = True 删除子菜单名.Enabled = True Else 复制子菜单名.Enabled = False 剪切子菜单名.Enabled = False 删除子菜单名.Enabled = False End If If Len(Clipboard.GetText)...
vb
制作
记事本
如何实现查找下一个的功能?
答:
private sub Find_Click()on error resume next sFind=text2.text lastPos=instr(0,text1.text,sFind)if lastPos<>-1 then text1.selstart=lastPos-1 text1.sellength=len(sFind)end if end sub private sub FindNext_Click()on error resume next if sFind="" or lastPos=-1 then exit ...
使用
VB程序
,
设计
一个具有复制、剪切、粘贴、保存、字体设置、字型设置...
答:
Sub Private Sub Form_Load() Red.Enabled = False Blue.Enabled = False Green.Enabled = False Bld.Checked = False Itl.Checked = False Undrln.Checked = False End Sub Private Sub Green_Click() Text1.ForeColor =
vb
Green End Sub Private Sub bld_click() Text1.FontBold = Not ...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
c程序设计记事本程序设计报告
vb记事本程序设计报告
java程序设计记事本实训报告
简单记事本程序设计
c程序设计记事本项目简介
vb程序设计编写程序题
java记事本程序
java编写一个记事本程序
java编写记事本程序