• 所有问题

    • VB制作记事本的字体代码

    给个代码！！要完整的，谢谢！！！！

    举报该问题
    推荐答案   2013-08-30
    CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects 'cdlCFBoth 对话框列出可用的打印机和屏幕字体. cdlCFEffects 对话框允许删除线，下划线，以及颜色效果。

    CommonDialog1.ShowFont '显示“字体”对话框
    Text1.font.Name = CommonDialog1.FontName '设置字体
    Text1.font.Size = CommonDialog1.FontSize '设置字号
    Text1.font.Bold = CommonDialog1.FontBold '设置是否以粗体显示
    Text1.font.Italic = CommonDialog1.FontItalic '设置是否以斜体显示
    Text1.FontStrikethru = CommonDialog1.FontStrikethru '设置是否显示删除线
    Text1.FontUnderline = CommonDialog1.FontUnderline '设置是否显示下划线
    Text1.ForeColor = CommonDialog1.Color '设置字的颜色
    Text2.font.Name = CommonDialog1.FontName '设置字体
    Text2.font.Size = CommonDialog1.FontSize '设置字号
    Text2.font.Bold = CommonDialog1.FontBold '设置是否以粗体显示
    Text2.font.Italic = CommonDialog1.FontItalic '设置是否以斜体显示
    Text2.FontStrikethru = CommonDialog1.FontStrikethru '设置是否显示删除线
    Text2.FontUnderline = CommonDialog1.FontUnderline '设置是否显示下划线
    Text2.ForeColor = CommonDialog1.Color '设置字的颜色
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    用VB程序编写记事本答：cf.hwndOwner=Form1.hWnd'windowForm1isopeningthisdialogbox 'cf.hDC=Printer.hDC'devicecontextofdefaultprinter(usingVB'smechanism)cf.rgbColors=RGB(0,0,0)'black cf.nFontType=REGULAR_FONTTYPE'regularfonttypei.e.notboldoranything cf.nSizeMin=10'minimumpointsize ...
    急求用VB做一个记事本软件代码.答：Private Sub backcolorMenu_Click() '设置背景色代码 Form1.CommonDialog1.Action = 3 Text1.BackColor = Form1.CommonDialog1.Color End Sub Private Sub colorMenu_Click() '改变文字颜色代码 Form1.CommonDialog1.Action = 3 Text1.ForeColor = Form1.CommonDialog1.Color End Sub Private...
    ...字体设置、字型设置、关闭、退出等功能的记事本。很紧答： 源代码： Private Sub Blue_Click() Text1.ForeColor = vbBlue End 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的简单记事本的代码答：If filename = "无标题-记事本" Then Flag = MsgBox(msgtext, 35, "记事本") '给予提示 If Flag = vbYes Then mnusaveas_Click RichText.Text = "" Form1.Caption = "无标题-记事本" filename = "无标题-记事本" End If If Flag = vbCancel Then Exit Sub If Flag = vbNo Then RichText....
    VB语言编写的记事本答：回答：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...
    大家正在搜
    记事本的字体记事本的字体怎么调大怎么把记事本里面的字体调小记事本有趣的代码记事本编程的简单代码记事本怎么放大字体记事本 字体变大记事本字体格式设置记事本做网页改变字体