精华内容
下载资源
问答
  • VB小例子,改变Form背景颜色,字体颜色和字体; 对txt文件的读取和另存; 简单的继承和重写; 只是个小例子,,方便跟我一样有正在学习VB,并且有需要的人,顺便赚点积分,,,,求大神勿喷,有不好的地方大家帮忙提...
  • 指定全部显示不同颜色: public void SetTextContent(string text, ColorEnum color) { Font font = new Font("微软雅黑", 14, FontStyle.Bold); richTextBox1.Font = font; ...

    指定全部显示不同颜色:

            public void SetTextContent(string text, ColorEnum color)
            {
                Font font = new Font("微软雅黑", 14, FontStyle.Bold);
                richTextBox1.Font = font;
                richTextBox1.Text = text;
                richTextBox1.ReadOnly = true;
                layoutControlItem2.Selected = true;
                SendKeys.Send("{Tab}");  //向活动应用程序发送击键 注意格式:Send("{Tab}");中的{}
                switch (color)
                {
                    case ColorEnum.Blue:
                        this.Text = "警告信息";
                        richTextBox1.ForeColor = Color.Blue;
                        break;
                    case ColorEnum.Red:
                        this.Text = "错误信息";
                        richTextBox1.ForeColor = Color.Red;
                        break;
                    default:
                        this.Text = "提示信息";
                        richTextBox1.ForeColor = Color.Black;
                        break;
                }
            }
        public enum ColorEnum
        {
            Black = 0,
            Blue = 1,
            Red = 2
        }

     

    指定内容中指定文字高亮显示:

            private void SetHighlightContent(string text)
            {
                ColorEnum color = ColorEnum.Black;
                string content = string.Empty;
                List<string> findList = new List<string>();
                if (text.IndexOf("#Red#", StringComparison.Ordinal) > 0)
                {
                    color = ColorEnum.Red;
                    var contentArray = text.Split(new[] { "#Red#" }, StringSplitOptions.None);
                    content = contentArray[0];
                    var findstrs = contentArray[1];
                    findList = GetFindList(findstrs);
                }
                else if (text.IndexOf("#Blue#", StringComparison.Ordinal) > 0)
                {
                    color = ColorEnum.Blue;
                    var contentArray = text.Split(new[] { "#Blue#" }, StringSplitOptions.None);
                    content = contentArray[0];
                    var findstrs = contentArray[1];
                    findList = GetFindList(findstrs);
                }
                SetHighlight(content, findList, color);
            }
    
            /// <summary>
            /// 多个要高亮关键词显示的用'&'连接
            /// </summary>
            /// <param name="findstrs"></param>
            /// <returns></returns>
            private List<string> GetFindList(string findstrs)
            {
                List<string> findList;
                if (findstrs.IndexOf("&", StringComparison.Ordinal) > 0)
                {
                    findList = findstrs.Split('&').ToList();
                }
                else
                {
                    findList = new List<string>() { findstrs };
                }
                return findList;
            }
    
            private void SetHighlight(string content, List<string> findList, ColorEnum color)
            {
                if (!string.IsNullOrEmpty(content))
                {
                    if (findList.IsHasRow())
                    {
                        Font font = new Font("微软雅黑", 14, FontStyle.Bold);
                        richTextBox1.Font = font;
                        richTextBox1.Text = content;
                        this.Text = @"提示信息";
                        richTextBox1.ReadOnly = true;
                        foreach (var findItem in findList)
                        {
                            List<int> findStrIndexes = GetFindStrIndexes(content, findItem);
                            foreach (var itemindex in findStrIndexes)
                            {
                                richTextBox1.Select(itemindex, findItem.Length);
                                switch (color)
                                {
                                    case ColorEnum.Blue:
                                        richTextBox1.SelectionColor = Color.Blue;
                                        break;
                                    case ColorEnum.Red:
                                        richTextBox1.SelectionColor = Color.Red;
                                        break;
                                }
                            }
                        }
                        richTextBox1.SelectionStart = richTextBox1.Text.Length; //取消选中
                        layoutControlItem2.Selected = true;
                        SendKeys.Send("{Tab}"); //向活动应用程序发送击键 注意格式:Send("{Tab}");中的{}
                    }
                    else
                    {
                        SetTextContent(content, color);
                    }
                }
            }
    
            private List<int> GetFindStrIndexes(string content, string findStr)
            {
                List<int> result = new List<int>();
                int start = 0;
                while (start < content.Length)
                {
                    int index = content.IndexOf(findStr, start, StringComparison.Ordinal);
                    if (index >= 0)
                    {
                        result.Add(index);
                        start = index + findStr.Length;
                    }
                    else
                    {
                        break;
                    }
                }
                return result;
            }

    参考:

    http://www.cnblogs.com/KardelXiao/p/4236045.html (C#)RichTextBox控件 链接跳转设置
    http://blog.csdn.net/crazytaliban/article/details/52002657 RichTextBox用法——设置指定字符串的颜色

    展开全文
  • 批量修改PPT中文字方法,可以一次性修改ppt文档的所有文字的大小、格式等参数啊
  • VB中的的RichText文本控件进行语法高亮显示操作的一个示例,搞明白了这个,你就能写一个简单的语法编辑器啦!
  • VB 颜色本色工具

    2021-06-26 11:59:21
    & 取英文名(取中文名(i)) & " = &H00" & Hex(Val(取值(取英文名(取中文名(i))))) & "& '" & 取中文名(i) & vbCrLf Next End Sub Private Sub List1_Click() Text3 = List1.List(List1.ListIndex) Op((List1.List...

     

    Option Explicit
    
    Dim cn()
    Dim value()
    Dim name_()
    
    Private Sub Form_Load()
        cn = Array( _
    "艾利斯兰 aliceblue", "古董白  antiquewhite", "浅绿色  aqua", "碧绿色  aquamarine", "天蓝色  azure", "米色   beige", "桔黄色  bisque", "黑色   black", "白杏色  blanchedalmond", "蓝色   blue", _
    "紫罗兰色 blueviolet", "褐色   brown", "实木色  burlywood", "军兰色  cadetblue", "黄绿色  chartreuse", "巧可力色 chocolate", "珊瑚色  coral", "菊兰色  cornflowerblue", "米绸色  cornsilk", "暗深红色 crimson", _
    "青色   cyan", "暗蓝色  darkblue", "暗青色  darkcyan", "暗金黄色 darkgoldenrod", "暗灰色  darkgray", "暗绿色  darkgreen", "暗黄褐色 darkkhaki", "暗洋红  darkmagenta", "暗橄榄绿 darkolivegreen", "暗桔黄色 darkorange", _
    "暗紫色  darkorchid", "暗红色  darkred", "暗肉色  darksalmon", "暗海兰色 darkseagreen", "暗灰蓝色 darkslateblue", "墨绿色  darkslategray", "暗宝石绿 darkturquoise", "暗紫罗兰色darkviolet", "深粉红色 deeppink", "深天蓝色 deepskyblue", _
    "暗灰色  dimgray", "闪兰色  dodgerblue", "火砖色  firebrick", "花白色  floralwhite", "森林绿  forestgreen", "紫红色  fuchsia", "淡灰色  gainsboro", "幽灵白  ghostwhite", "金色   gold", "金麒麟色 goldenrod", _
    "灰色   gray", "绿色   green", "黄绿色  greenyellow", "蜜色   honeydew", "热粉红色 hotpink", "印第安红 indianred", "靛青色  indigo", "象牙色  ivory", "黄褐色  khaki", "淡紫色  lavender", _
    "淡紫红  lavenderblush", "草绿色  lawngreen", "柠檬绸色 lemonchiffon", "亮蓝色  lightblue", "亮珊瑚色 lightcoral", "亮青色  lightcyan", "亮金黄色 lightgoldenrodyellow", "亮绿色  lightgreen", "亮灰色  lightgrey", "亮粉红色 lightpink", _
    "亮肉色  lightsalmon", "亮海蓝色 lightseagreen", "亮天蓝色 lightskyblue", "亮蓝灰  lightslategray", "亮钢兰色 lightsteelblue", "亮黄色  lightyellow", "酸橙色  lime", "橙绿以  limegreen", "亚麻色  linen", "红紫色  magenta", _
    "粟色   maroon", "间绿色  mediumaquamarine", "间兰色  mediumblue", "间紫色  mediumorchid", "间紫色  mediumpurple", "间海蓝  mediumseagreen", "间暗蓝色 mediumslateblue", "间春绿色 mediumspringgreen", "间绿宝石 mediumturquoise", "间紫罗兰色mediumvioletred", _
    "中灰兰色 midnightblue", "薄荷色  mintcream", "浅玫瑰色 mistyrose", "鹿皮色  moccasin", "纳瓦白  navajowhite", "海军色  navy", "老花色  oldlace", "橄榄色  olive", "深绿褐色 olivedrab", "橙色   orange", _
    "红橙色  orangered", "淡紫色  orchid", "苍麒麟色 palegoldenrod", "苍绿色  palegreen", "苍宝石绿 paleturquoise", "苍紫罗兰色palevioletred", "番木色  papayawhip", "桃色   peachpuff", "秘鲁色  peru", "粉红色  pink", _
    "洋李色  plum", "粉蓝色  powderblue", "紫色   purple", "红色   red", "褐玫瑰红 rosybrown", "皇家蓝  royalblue", "重褐色  saddlebrown", "鲜肉色  salmon", "沙褐色  sandybrown", "海绿色  seagreen", _
    "海贝色  seashell", "赭色   sienna", "银色   silver", "天蓝色  skyblue", "石蓝色  slateblue", "灰石色  slategray", "雪白色  snow", "春绿色  springgreen", "钢兰色  steelblue", "茶色   tan", _
    "水鸭色  teal", "蓟色   thistle", "西红柿色 tomato", "青绿色  turquoise", "紫罗兰色 violet", "浅黄色  wheat", "白色   white", "烟白色  whitesmoke", "黄色   yellow", "黄绿色  yellowgreen" _
                                                                                     )
        value = Array( _
                "aliceblue F0F8FF", "antiquewhite FAEBD7", "aqua 00FFFF", "aquamarine 7FFFD4", "azure F0FFFF", "beige F5F5DC", "bisque FFE4C4", "black 000000", "blanchedalmond FFEBCD", "blue 0000FF", _
    "blueviolet 8A2BE2", "brown A52A2A", "burlywood DEB887", "cadetblue 5F9EA0", "chartreuse 7FFF00", "chocolate D2691E", "coral FF7F50", "cornflowerblue 6495ED", "cornsilk FFF8DC", "crimson DC143C", _
    "cyan 00FFFF", "darkblue 00008B", "darkcyan 008B8B", "darkgoldenrod B8860B", "darkgray A9A9A9", "darkgreen 006400", "darkkhaki BDB76B", "darkmagenta 8B008B", "darkolivegreen 556B2F", "darkorange FF8C00", _
    "darkorchid 9932CC", "darkred 8B0000", "darksalmon E9967A", "darkseagreen 8FBC8F", "darkslateblue 483D8B", "darkslategray 2F4F4F", "darkturquoise 00CED1", "darkviolet 9400D3", "deeppink FF1493", "deepskyblue 00BFFF", _
    "dimgray 696969", "dodgerblue 1E90FF", "firebrick B22222", "floralwhite FFFAF0", "forestgreen 228B22", "fuchsia FF00FF", "gainsboro DCDCDC", "ghostwhite F8F8FF", "gold FFD700", "goldenrod DAA520", _
    "gray 808080", "green 008000", "greenyellow ADFF2F", "honeydew F0FFF0", "hotpink FF69B4", "indianred CD5C5C", "indigo 4B0082", "ivory FFFFF0", "khaki F0E68C", "lavender E6E6FA", _
    "lavenderblush FFF0F5", "lawngreen 7CFC00", "lemonchiffon FFFACD", "lightblue ADD8E6", "lightcoral F08080", "lightcyan E0FFFF", "lightgoldenrodyellow FAFAD2", "lightgreen 90EE90", "lightgrey D3D3D3", "lightpink FFB6C1", _
    "lightsalmon FFA07A", "lightseagreen 20B2AA", "lightskyblue 87CEFA", "lightslategray 778899", "lightsteelblue B0C4DE", "lightyellow FFFFE0", "lime 00FF00", "limegreen 32CD32", "linen FAF0E6", "magenta FF00FF", _
    "maroon 800000", "mediumaquamarine 66CDAA", "mediumblue 0000CD", "mediumorchid BA55D3", "mediumpurple 9370DB", "mediumseagreen 3CB371", "mediumslateblue 7B68EE", "mediumspringgreen 00FA9A", "mediumturquoise 48D1CC", "mediumvioletred C71585", _
    "midnightblue 191970", "mintcream F5FFFA", "mistyrose FFE4E1", "moccasin FFE4B5", "navajowhite FFDEAD", "navy 000080", "oldlace FDF5E6", "olive 808000", "olivedrab 6B8E23", "orange FFA500", _
    "orangered FF4500", "orchid DA70D6", "palegoldenrod EEE8AA", "palegreen 98FB98", "paleturquoise AFEEEE", "palevioletred DB7093", "papayawhip FFEFD5", "peachpuff FFDAB9", "peru CD853F", "pink FFC0CB", _
    "plum DDA0DD", "powderblue B0E0E6", "purple 800080", "red FF0000", "rosybrown BC8F8F", "royalblue 4169E1", "saddlebrown 8B4513", "salmon FA8072", "sandybrown F4A460", "seagreen 2E8B57", _
    "seashell FFF5EE", "sienna A0522D", "silver C0C0C0", "skyblue 87CEEB", "slateblue 6A5ACD", "slategray 708090", "snow FFFAFA", "springgreen 00FF7F", "steelblue 4682B4", "tan D2B48C", _
    "teal 008080", "thistle D8BFD8", "tomato FF6347", "turquoise 40E0D0", "violet EE82EE", "wheat F5DEB3", "white FFFFFF", "whitesmoke F5F5F5", "yellow FFFF00", "yellowgreen 9ACD32" _
        )
        
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        
        Op(0).Caption = 取中文名(0)
        Op(0).BackColor = Val(取值(取英文名(Op(0).Caption)))
        
        For i = 0 To 35
    
            For j = 0 To 3
                If i = 0 And j = 0 Then
                Else
                    k = i * 4 + j
                    If k = 140 Then GoTo ExitSub
                    Load Op(k)
                    With Op(k)
                        .Left = Op(0).Left + j * 3400
                        .Top = Op(0).Top + i * 280
                        .Caption = 取中文名(k)
                        .BackColor = Val(取值(取英文名(.Caption)))
        
                        .Visible = True
                    End With
                End If
            Next
    
        Next
    ExitSub:
    
        Text3 = ""
        List1.Clear
    
        For i = 0 To UBound(cn)
            List1.AddItem "dim " & 取英文名(取中文名(i)) & " = &H00" & Hex(Val(取值(取英文名(取中文名(i))))) & "& '" & 取中文名(i) & vbCrLf
        Next
    End Sub
    
    Private Sub List1_Click()
        Text3 = List1.List(List1.ListIndex)
        Op((List1.ListIndex)).value = True
    End Sub
    
    Private Sub Op_Click(Index As Integer)
        Me.BackColor = Val(取值(取英文名(Op(Index).Caption)))
        Label1.BackColor = BackColor
        If BackColor Then
            Label2.BackColor = BackColor
            Frame1.BackColor = BackColor
            Text1.BackColor = BackColor
            Text2.BackColor = BackColor
            Text3.BackColor = BackColor
            List1.BackColor = BackColor
        End If
    
        Text1 = 取英文名(Op(Index).Caption)
        Text2 = Hex(BackColor)
        List1.ListIndex = Index
    End Sub
    
    Private Function 取中文名(i As Integer) As String
    Dim tmp
    tmp = Split(cn(i), " ")
    取中文名 = tmp(0)
    End Function
    
    Private Function 取英文名(s As String) As String
    Dim tmp
    Dim i As Integer
    For i = 0 To UBound(cn)
    tmp = Split(cn(i), " ")
    If s = tmp(0) Then
    取英文名 = tmp(UBound(tmp))
    Exit Function
    End If
    Next
    End Function
    
    Private Function 取值(s As String) As String
    Dim tmp
    Dim i As Integer
    Dim a, b, c
    For i = 0 To UBound(value)
    tmp = Split(value(i), " ")
    If s = tmp(0) Then
    取值 = "&H00000000" & tmp(UBound(tmp)) & "&"
    
    a = Left(Right(取值, 3), 2)
    b = Left(Right(取值, 5), 2)
    c = Left(Right(取值, 7), 2)
    a = a & b & c
    
    取值 = "&H00" & a & "&"
    Exit Function
    End If
    Next
    End Function
    
    
    

    展开全文
  • VB.NET 设置Label字体

    千次阅读 2013-03-15 10:27:55
    '==========================改变字体 Dim myFont As System.Drawing.Font Dim strName As String = ListBox1.Text Dim myFontFamily As System.Drawing.FontFamily myFontFamily = Ne
            '==========================改变字体
            Dim myFont As System.Drawing.Font
    
            Dim strName As String = ListBox1.Text
            Dim myFontFamily As System.Drawing.FontFamily
            myFontFamily = New FontFamily(strName)
    
            Dim myFontStyle As FontStyle
            Dim bolBold = CheckBox1.Checked
            If bolBold Then
                myFontStyle = myFontStyle Or FontStyle.Bold
            End If
    
            Dim bolItdic = CheckBox2.Checked
            If bolItdic Then
                myFontStyle = myFontStyle Or FontStyle.Italic
            End If
    
            Dim bolUnderline = CheckBox3.Checked
            If bolUnderline Then
                myFontStyle = myFontStyle Or FontStyle.Underline
            End If
    
            Dim bolStrikeout = CheckBox4.Checked
            If bolStrikeout Then
                myFontStyle = myFontStyle Or FontStyle.Strikeout
            End If
    
            Dim sngSize = ComboBox11.Text
            Dim myColor As Color
    
            myFont = New System.Drawing.Font(myFontFamily, sngSize, myFontStyle, System.Drawing.GraphicsUnit.Point)
            Label69.Font = myFont
            myColor = Label77.BackColor
            Label69.ForeColor = myColor


     

    展开全文
  • WPS用VB宏插件

    2017-03-21 11:11:33
    WPS用VB宏功能插件,开启高速办公
  • VB 设置ListView中指定一行的背景颜色

    千次阅读 2013-01-28 09:21:27
    代码如下: ...'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认:&amp;HB6B4FF) Public Sub SetListViewBGColor(ByRef ListView As ListView, _ ByRef Index As Long, _ ...

    代码如下:

    'SetListViewBGColor(ListView控件名称,要设置的背景颜色行号,颜色值-默认:&HB6B4FF)

    Public Sub SetListViewBGColor(ByRef ListView As ListView, _
                                  ByRef Index As Long, _
                                  Optional BGColor As Long = &HB6B4FF)
        'author:www.newxing.com
        Dim lineTop As Long, lineHeight As Integer
        Static Pic As PictureBox
        If Pic Is Nothing Then Set Pic = Controls.Add("VB.PictureBox", "picbg")
        lineHeight = ListView.ListItems(Index).Height
        lineTop = lineHeight * (Index - 1)

        With Pic
            .Cls
            .AutoRedraw = True
            .Visible = False
            .ScaleMode = vbTwips
            .Font = ListView.Font
            .BorderStyle = 1
            .Appearance = 0
            .Height = lineHeight * ListView.ListItems.Count + lineHeight
            .Width = ListView.Width
        End With

        Pic.Line (0, lineTop)-(Pic.Width, lineTop + lineHeight), BGColor, BF
        ListView.Picture = Pic.Image

    End Sub

    
     
    
     

    摘自:网络整理


    相关参考

    VB 单击Listview控件某列表头进行排序

    VB Listview导出到CSV文件函数

    VB 设置Listview中指定一行的背景颜色

    vb Listview扁平表头的列表框

    V B 相关

    VB 读写TXT文本文件函数

    VB 提取TextBox 文本框中指定一行字符串

    VB 获取汉字拼音的首字母

    VB 汉字字符串转换成拼音

    VB判断指定名字的进程是否存在函数

    VB 两种方法实现热键

    VB 使用SendMessage枚举文件与目录

    VB 二进制数组与十六进制字符串相互转换

    VB 二进制数据读写实例

    VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

    VB 判断是否文本文件

    VB 读取UTF-8编码文件函数

    VB 按指定编码格式写入文本文件

    VB UTF-8 URL编码函数

    VB 实现UTF-8 GB2312互转

    VB 设置ListView中指定一行的背景颜色

    VB SendMessage向其他程序窗口发送字符串消息实例

    VB Listview导出到CSV文件函数

    vb卸载所有窗体

    VBNull, Empty, Nothing, and vbNullString的区别

    利用API函数计算程序运行时间VB

    获取快捷方式原文件路径vb路径

    利用VB函数Dir()实现递归搜索目录

    VB数组的清除和重新定义

    RtlAdjustPrivilege来调整进程权限(VB6.0代码)

    获取对象的接口信息(方法/属性/事件)(VB6代码)

    VB6中给数组赋值的限制

    [vb]一些窗口消息的详解

    VB直接播放EXE文件中的声音文件

    VB中利用CopyMemory使用指针

    VB读写注册表的三种方法

    [VB]SaveSetting 语句 和 DeleteSetting 语句

    VB APP对象属性一览表 + 灵活使用VBAPP对象

    [vb]SendMessageA函数

    使用VB绘制抛物线动画曲线

    关于vb中的容器

    [vb]利用WScript.Shell对象隐藏cmd命令行运行

    浅析VB For Each.Next语句

    VB中窗体模块、标准模块、类模块的区别

    引用 VB类模块

    VB中什么是类,类模块有什么作用

    VB SendKeys 语句

    VB 全局热键

    VB轻松调用其他程序

    vb读取txt文件到textbox

    如何去优化你的VB程序3

    如何去优化你的VB程序2

    如何去优化你的VB程序1

    [VB]在状态栏中显示帮助信息

    [VB]把屏幕保存为图像

    Mp3Play.ocx控件让音乐之声响起来


    更多精彩>>>
    展开全文
  • 以下这个函数可以将一个汉字字符串转换成拼音 Private Function Getpy(Txt)Dim d, TmpTxtDim wzcode, i, TmpWZ, a, b, iiSet d = CreateObject("Scripting.Dictionary")d.Add "a&...
  • VB字幕滚动效果 附代码,有点LED电子显示屏的文字滚动效果,程序本身带有字库,选择字体十分方便,支持英文和中文同时滚动,滚动速度在代码里可以自定义,LED效果比较逼真,就像是一个真正的屏幕一样,字幕的颜色也...
  • 改成Trim(sBuff)即可显示全部中文。 Call SetBkColor(tItem.hdc, GetSysColor(COLOR_WINDOW)) Call SetTextColor(tItem.hdc, tItem.itemData) ' 这里是改背景和字体颜色的地方。   转载于:...
  • 一个美化窗体的VB程序源,可以改变窗体背景图片和纯颜色,对背景图片进行添加、删除、淡化,窗体透明等设置,控件开源有很多地方值得VB爱好者研究学习的,每一块代码都有中文注译,思路清晰易懂,对开发换肤的程序有...
  • VB 获取汉字拼音的首字母

    千次阅读 2013-01-31 11:46:50
    中指定一行的背景颜色VB SendMessage 向其他程序窗口发送字符串消息实例 ☆ VB Listview 导出到 CSV 文件函数 ☆ vb 卸载所有窗体 ☆ VB 中 Null, Empty, Nothing, and vbNullString 的区别 ☆ 利用 ...
  • 不知道为什么计组老师的大量课件字体是伤害视力的亮蓝色……看久了眼睛疼,想把颜色替换成保护视力一点的灰色,但是找了N久也没找到在图形界面上直接操作的方法,于是在MSDN上晃了晃,Google了一下,写了个VBA小脚本...
  • VB 使用总结

    2019-11-26 16:22:30
    VB参考 官方文档 调用方法 function 参数1,参数2..... 清除单元格内容不清除公式 Worksheets("Sheet1").Range("a2:I1000000").SpecialCells(2).ClearContents 读取数据库表数据到excel表中 Dim rs As New ...
  • 2、可以解析VB自身所有控件的属性,并进行编辑(包括字体的修改,背景颜色的修改,图片的保存和替换等)和导出(包括工程文件和图片文件); 2、可使用常用格式字典来翻译字符串,并将所得工程的字典导出,方便以
  • 一直都说的新教材还是没下来于是这个学年还是继续VB教学其实VB这个编程软件真的很老了已经好多好多年没有更新过了但是VB语法都是比较规范的它又是一个面象对象的编程软件所以比较适合学习编程的初学者那今天我们就...
  • VB学习记录

    千次阅读 多人点赞 2017-11-25 16:47:56
    一、什么是VB VB程序设计是要干什么? 1.添加、设置对象; 2.对对象添加功能。 编程的基本要素 - 对象object - 类class - 属性property - 方法method - 事件event 事件过程的一般格式: ...
  • RTF 字体颜色表 设定

    千次阅读 2013-04-07 18:30:29
    "定义了文档颜色表,RTF文档是统一引用颜色值的,文档内容的文本颜色,背景色等颜色设置都是引用颜色表的,RTF颜色表中只定义了各个颜色的RGB值,没有明确的定义编号,引用时是按照从左到右的顺序引用颜色的,而且...
  • Java数据压缩与传输实例 1个目标文件 摘要:Java源码,文件操作,数据压缩,文件传输 Java数据压缩与传输实例,可以学习一下实例化套按、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、...
  • 内容索引:VB源码,字符处理,LED 一款用VB模仿LED中英文滚动字幕的显示屏,完美支持中文和英文显示,自带字库。可以设定刷新频率,滚动速度,设置字体颜色,逼真的LED界面,看上去不错哦!
  • Visual Basic 6.0简体中文企业版是被开发者广泛使用的一款开发软件,其使用价值非常的高,适合所有的开发人员使用。它拥有可视化的编程环境,还提供了窗口编辑,可直接对窗口进行编辑和预览。...
  • vb中使用TeeChart控件

    热门讨论 2008-03-12 16:08:58
    vb中使用TeeChart控件绘图
  • 在屏幕上画出汉字源代码,可以改变颜色 VB6源代码
  • VB 中的基本数据类型

    万次阅读 2017-06-11 10:12:31
    VB基本数据类型 VB 6.O提供的基本数据类型主要有:字符型数据、数值型数据、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型等9种数据类型。 1.字符型数据 字符型数据(String)用以定义...
  • VB初步入门

    2020-09-20 11:31:04
    VB 入门记录(一) 一、Visual Basic 界面简介 打开题目进入界面是这个样子的 ​ 图一 我们的题目信息在这里 ​ 图二 然后当你双击那个产生按钮的时候 ​ ...
  • vb.net控件

    2020-04-28 14:49:22
    vb.net 的 Label 控件 label(标签)控件用于显示文本,是设计应用程序界面时经常要用到的控件之一, 主要是用于显示其他控件名称,描述程序运行状态或标识程序运行的结果信息等 等,响应程序的事件或跟踪程序运行的...
  • VB6下RichTextBox的一些经验技巧

    千次阅读 2019-06-22 09:32:21
    富文本编辑器是一个很好用的多媒体文件编辑器,笔者用来做了个简单的代码编辑器,实现了代码上色和...先看如下代码(vb6): tt = "{\rtf1\fbidis\ansi\ansicpg936\deff0{\fonttbl{\f0\fmodern\fprq1\fcharset0 Co...
  • 背景颜色 Light为白色 注释颜色 Bold加粗 Italic斜体 注释 单行注释 多行注释 文档注释 //单行注释 /* 块注释 */ //javadoc :文档 /** * */ 空项目 注意配置SDK,并且设为与JDK版本一致,15则下面也选择...
  • vb源码

    千次阅读 2012-03-22 23:10:01
    VB源码:HOOK 万能网游密码截取技术之(诛仙)  ... ...VB源码:IP地址输入框控件  下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码  下载地址:http://www.2e3.

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,693
精华内容 2,277
关键字:

vb中文字颜色