精华内容
下载资源
问答
  • VB程序题:提供在窗体上显示的以汉字开头的字体名称,并显示该名称所对应得字体样式,程序运行效果如图E.10所示。 VB源代码 wb98.com 提示:1. 界面设计:窗体有两个Label和两个列表ListBox分别用来显示字体名称和...

    VB程序题:提供在窗体上显示的以汉字开头的字体名称,并显示该名称所对应得字体样式,程序运行效果如图E.10所示。 VB源代码 wb98.com

    提示:

    1. 界面设计:窗体有两个Label和两个列表ListBox分别用来显示字体名称和字体样式。

    2. 屏幕对象Screen有一系列的属性,参见教材例5.10,其中Fonts是存放所有字体名的字符数组,FontCount是所有字体的个数。

    3. 要显示汉字字体名称,参见教材例6.3的方法,汉字的机内码最高位为1,若利用Asc函数求其码值为小于0(数据以补码表示),因此可用如下算法:

    For i=0 To Screen.FontCount – 1

    判断 若 Asc(left(Screen.Fonts(i),1))<0为汉字字体 则

    在List1中显示字体名称

    在List2设置该控件的字体,并显示特定的汉字

    Next i

    解题,在窗体画两个图片框,代码如下:

    Private Sub Form_Click()

    For i = 0 To Screen.FontCount - 1

    If Asc(Left(Screen.Fonts(i), 1)) < 0 Then

    Picture1.Print Screen.Fonts(i)

    Picture2.FontName = Screen.Fonts(i)

    Picture2.Print "中国同济大学"

    End If

    Next i

    End Sub

    运行程序,点击窗体,会看到显示结果。

    Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

    来源:济亨网

    展开全文
  • 自制的VB窗体修饰控件集,内含漂亮按钮、ListView、下拉列表、TAB标签选项卡、树形控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等,相信这些控件对于从事vb6编程的朋友来说,是相当实用的。  某内部控件代码...
  • 个人开发的VB窗体修饰控件集,内含漂亮按钮、ListView、下拉列表、TAB标签选项卡、树形控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等,相信这些控件对于从事vb6编程的朋友来说,是相当实用的。 某内部控件代码...
  • [求助]vb显示图片的一点问题

    千次阅读 2005-06-24 11:16:00
    VB里面我已经把JPG图片读成2进制流保存在chunk()数组中Dim Chunk() as Byte有什么控件或者方法能够直接把这个数组在窗体上显示成图片而不用保村成文件后调用我在做一个土前的浏览程序,把JPG图片中的EXIF解析后提取...

    VB里面我已经把JPG图片读成2进制流保存在chunk()数组中
    Dim Chunk() as Byte
    有什么控件或者方法能够直接把这个数组在窗体上显示成图片而不用保村成文件后调用

    我在做一个土前的浏览程序,把JPG图片中的EXIF解析后提取出缩略图(暂时保存在BYTE数组中),图片多的话保存成文件太耗硬盘资源了。

    展开全文
  • VB读取EXCEL 编辑,

    2011-06-23 12:19:38
    vb读取excel中的数据并在窗体上显示 Public ExcelTable As Workbook 'excel 工作表对象 Private TextBoxA() As Control '以编辑框为基础动态构造数据网格 Private FormWidth As Integer '窗体宽度 '以下子程序是...
  • 现在Windows环境下的应用程序经常要用到...这种进度条的显示相当于使用许多颜色相近的“ 画笔”在窗体上绘制方框。这些“画笔”就相当于一个画笔数组。首先要建立颜色数组 ,初始的时候放入一些颜色值,然后根据平

    现在Windows环境下的应用程序经常要用到进度条,用以指示出一些复杂进程的运行状态。目前我们在窗体设计时,使用的都是单色进度条。本文讲述在WindowsXP环境下,使用VB2005制作一个漂亮的颜色 渐变的进度条组件。
    一.技术细节
    这种进度条的显示相当于使用许多颜色相近的“ 画笔”在窗体上绘制方框。这些“画笔”就相当于一个画笔数组。首先要建立颜色数组 ,初始的时候放入一些颜色值,然后根据平滑度的设置来重新设置颜色数组。依次取出颜色数组中两个 相邻的颜色值,计算这两个颜色经过混合后的颜色,再放入到两个颜色的中间。例子中颜色数组中有8种 颜色。平滑度的值从0开始循环,最高是7。每经过一次循环,颜色数组中就增加了一些过渡颜色。平滑 度设置的越大,则颜色过渡的越柔和。产生的效果越漂亮。颜色数组生成之后,画笔数组就确定了。它 的大小和颜色数组一致。有了画笔数组,下面的问题就是在窗体上进行绘图操作了。
    二、实现原理
    在绘图操作之前。所以要重载基类中的窗体的消息处理事件WndProc,窗体大小变化事件 OnResize和窗体重绘事件OnPaint。加入以下属性设置:
    Minimum。表示进度条的最小值。默认是 0 。
    Maximum。表示进度条的最大值。默认是 100 。
    Value。表示了进度条的当前值。默 认是 0 。
    Smoothness。表示了进度条颜色渐变的平滑度。默认是 0 。
    在初始化的时候 ,设置了以上四个属性后,相应的画笔数组产生了。当前值的每次改变都要触发OnPaint事件。触发事件 后,首先绘制进度条的外部边框,接着得到内部边框的总宽度和高度。根据当前值,最小值和最大值计 算完成百分比,由完成百分比乘以总宽度得到当前值占用的宽度。总宽度除以画笔数组的个数得到每个 画笔所占用的宽度。然后就是从初始宽度循环到当前值占用的宽度,从画笔数组中依次使用画笔按照每 个画笔所占用的宽度和高度填充颜色。循环结束后,如果百分比为100。则使用画笔数组中的最后一个 画笔绘制颜色。进度条显示完毕。

    鱼台论坛http://bbs.370827.org/thread-5725-1-1.html

    展开全文
  • VB 用全局钩子,记录鼠标点击次数

    千次阅读 2011-06-17 18:42:00
    首先用建立一个标准Exe程序把窗体名称,设定为frmMain在窗体上建立一组文本框数组,名称为txtMsgtxtMsg(0) -- 显示鼠标左键按下的次数txtMsg(1) -- 显示鼠标中键按下的次数txtMsg(2) -- 显示鼠标右键按下的次数...

    '首先用建立一个标准Exe程序
    '把窗体名称,设定为frmMain
    '在窗体上建立一组文本框数组,名称为txtMsg
    'txtMsg(0) -- 显示鼠标左键按下的次数
    'txtMsg(1) -- 显示鼠标中键按下的次数
    'txtMsg(2) -- 显示鼠标右键按下的次数
    'txtMsg(3) -- 显示鼠标按下的总次数

     

    '首先建立一个Module,并输入以下代码

     

    Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
    Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

    Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)

    Public Type MOUSEMSGS
           X As Long            'x座标
           Y As Long            'y座标
           a As Long
           b As Long
           time As Long         'Window运行时间
    End Type

     

    Public Const WH_MOUSE_LL = 14

    '-----------------------------------------
    '消息

    Public Const HC_ACTION = 0

    '鼠标消息
    Public Const WM_MOUSEMOVE = &H200
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202
    Public Const WM_LBUTTONDBLCLK = &H203
    Public Const WM_RBUTTONDOWN = &H204
    Public Const WM_RBUTTONUP = &H205
    Public Const WM_RBUTTONDBLCLK = &H206
    Public Const WM_MBUTTONDOWN = &H207
    Public Const WM_MBUTTONUP = &H208
    Public Const WM_MBUTTONDBLCLK = &H209
    Public Const WM_MOUSEACTIVATE = &H21
    Public Const WM_MOUSEFIRST = &H200
    Public Const WM_MOUSELAST = &H209
    Public Const WM_MOUSEWHEEL = &H20A

    Public MouseMsg As MOUSEMSGS
    Public lHook As Long '记录Hook的值,以便退出程序的时候销毁Hook
    Public lClick As Long, mClick As Long, rClick As Long, tClick As Long '用来统计鼠标各个键的按下次数


    '鼠标钩子
    Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long)
    As Long

     

    If code = HC_ACTION Then
       
    CopyMemory MouseMsg, lParam, LenB(MouseMsg)

        frmMain.Caption = "X=" + Str(MouseMsg.X) + " Y=" + Str(MouseMsg.Y)'在主窗口上显示鼠标的当前位置

        Select Case wParam '根据不同鼠标动作进行处理,在这里只处理了鼠标按下的动作
            Case WM_LBUTTONDOWN '左键按下
                lClick = lClick + 1  '进行统计,并显示在住窗体的文本框上
                tClick = tClick + 1
                frmMain.txtMsg(0).Text = lClick
                frmMain.txtMsg(3).Text = tClick

                CallMouseHookProc = 0 '这里把返回值设定为0,保证鼠标动作正常完成
            Case WM_MBUTTONDOWN '中键按下
                mClick = mClick + 1
                tClick = tClick + 1
                frmMain.txtMsg(1).Text = mClick
                frmMain.txtMsg(3).Text = tClick
                CallMouseHookProc = 0

            Case WM_RBUTTONDOWN '右键按下
                rClick = rClick + 1
                tClick = tClick + 1
                frmMain.txtMsg(2).Text = rClick
                frmMain.txtMsg(3).Text = tClick
                CallMouseHookProc = 0

        End Select
     
    End If

    If code <> 0 Then
        CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam) '使用CallNextHookEx,来保证鼠标钩子能够被其它程序使用
    End If
     
    End Function

     

    '接下来,我们再给窗体里面添加代码

     

    Private Sub AddHook()  '安装鼠标钩子
      lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
    End Sub
    Private Sub DelHook()'卸除鼠标钩子

      UnhookWindowsHookEx lHook
    End Sub

    Private Sub Form_Load() '窗体载入的时候,安装鼠标钩子
        AddHook
    End Sub

    Private Sub Form_Unload(Cancel As Integer)'窗体卸载的时候,卸除鼠标钩子
        DelHook
    End Sub

    展开全文
  • 一,在窗体上添加横排六个,竖排六个共三十六个Textbox控件,每一个text1.text都是用来输入一个数字的,每个数字的取值范围在1-50之间。(大概的意思就像是一个六维的数组) 二,在每一排text控件中填上数字都是一...
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    禁用窗体上所有控件 43 , 43.txt 拷贝或移动列表框或组合框中的内容 44 , 44.txt 利用VB5开发ActiveX控件 45 , 45.txt 利用VB三维面板控件设计流动条 46 , 46.txt 浅谈用VB6.0编写BO程序 47 , 47.txt 巧用Visual ...
  • vb Script参考文档

    2009-07-28 22:13:02
    PropertyGet 语句 声明在窗体属性过程中获取(返回)属性值的名称,参数和代码。 PropertyLet 语句 声明在窗体属性过程中指定属性值的名称,参数和代码。 PropertySet 语句 声明在窗体属性过程中设置引用到对象的...
  • 首先在form中加入一个commandbuttion控件,在command1上点击鼠标右键,选择复制,在窗体上点击鼠标右键,选择粘贴在窗体上粘贴出九个command1,此时出现对话框问你要不要创建控件数组,在此选择是。然后再加入两个...
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    DrawUserControl:演示如何创建自定义绘制的用户控件、在窗体中使用它们、使控件能够对事件作出响应,以及定义在设计视图中使用的属性 DynamicControls:演示如何在运行时将控件添加到 Windows 窗体应用程序中的...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    其实游戏区图形框可以看成是由许多的command小方块组成,方块运动的过程就是造型里方块显示或者隐藏,就像现在的霓虹灯效果一样,由时钟控件控制visible属性改变的速度,一层的消失,下一层的显示,这样,从视觉...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    5.5.3 显示数组列表中的项 140 5.5.4 集合 141 5.6 用散列表创建查询表 144 5.6.1 使用散列表 145 5.6.2 Remove. RemoveAt和Clear方法 148 5.6.3 区分大小写 150 5.7 高级数组操作 152 5.8 小结 154 5.9 练习 155 第...
  • 5.5.3 显示数组列表中的项 140 5.5.4 集合 141 5.6 用散列表创建查询表 144 5.6.1 使用散列表 145 5.6.2 Remove. RemoveAt和Clear方法 148 5.6.3 区分大小写 150 5.7 高级数组操作 152 5.8 小结 154 5.9 练习 155 第...
  • 位高人说过,VB6的Form是支持真彩色图标的,可以给窗体设置真彩色图标。  昨天上午我试了一下,新建一个标准EXE工程,然后随意找了一个高清真彩图标文件,给工 程的Form1设置Icon属性,成功了……… 但是,感觉它...
  • 5.5.3 显示数组列表中的项 140 5.5.4 集合 141 5.6 用散列表创建查询表 144 5.6.1 使用散列表 145 5.6.2 Remove. RemoveAt和Clear方法 148 5.6.3 区分大小写 150 5.7 高级数组操作 152 5.8 小结 154 5.9 练习 155 第...
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    vb小游戏定义蛇的运动速度枚举值 Private Enum tpsSpeed QUICKLY = 0 SLOWLY = 1 End Enum '定义蛇的运动方向枚举值 Private Enum tpsDirection D_UP = 38 D_DOWN = 40 D_LEFT = 37 D_RIGHT = 39 End Enum '...
  • JAVA百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java波浪文字,一个利用Java处理字符的实例,可以设置运动方向参数,显示文本的字符数组,高速文本颜色,显示字体的 FontMetrics对象,得到Graphics实例,得到Image实例,填充颜色数组数据,初始化颜色数组。...
  • Java波浪文字制作方法及源代码 1个目标文件 摘要:Java源码,初学实例,波浪文字 Java波浪文字,一个利用Java处理字符的实例,可以设置运动方向参数,显示文本的字符数组,高速文本颜色,显示字体的 FontMetrics对象,...
  • 实例047 如何在数组中插入数组元素 实例048 如何删除数组元素 实例049 利用数组实现矩阵转换 实例050 对数组进行二分查找 3.2 数组的应用 实例051 利用数组统计文字段落数 实例052 利用数组随机抽取幸运观众 ...
  • 实例047 如何在数组中插入数组元素 实例048 如何删除数组元素 实例049 利用数组实现矩阵转换 实例050 对数组进行二分查找 3.2 数组的应用 实例051 利用数组统计文字段落数 实例052 利用数组随机抽取幸运观众 ...
  • 12.5.3 XML在VB.NET中的应用 254 第13章 程序调试和错误处理 256 13.1 程序错误类型 256 13.1.1 编译错误 256 13.1.2 运行时错误 257 13.1.3 逻辑错误 258 13.2 程序调试方法概述 259 13.3 设置运行断点 259 ...
  • Excel_VBA教程

    2014-09-22 11:36:34
    21.在窗体上添加按钮、选项框和其它控件 204 22.更改控件名称 206 23.设置其它控件属性 206 24.准备工作表以储存窗体数据 207 25.显示自定义窗体 208 26.设置TAB顺序 208 27.了解窗体和控件事件 209 28.编写VBA过程...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    21.在窗体上添加按钮、选项框和其它控件 204 22.更改控件名称 206 23.设置其它控件属性 206 24.准备工作表以储存窗体数据 207 25.显示自定义窗体 208 26.设置TAB顺序 208 27.了解窗体和控件事件 209 28.编写VBA过程...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    特别是对具体的界面设计要多媒体教室里进行,教师可以先作一些演示和介绍,引导学生自己去动手设计界面发挥自己的想象力和创造性,至于窗体上各个控件的使用,也可以让学生自己去尝试使用,发挥学生的自主探究能力...
  • 变量可以保存程序运行时用户输入的数据(如使用InputBox函数在屏幕上显示一个对话框,然后把用户键入的文本保存到变量中)、特定运算的结果以及要在窗体上显示的一段数据等。简而言之,变量是用于跟踪几乎所有类型...
  • 623下文菜单 ContextMenuStrip) 6.3 多文档应用程序 错误!未定义书签。 631创建多文档界面应用程序. 错误!未定义书签 632排列子窗口 错误未定义书签。 64图像列表( mageList控件… 134 65工具栏( ToolStrip控件) ...

空空如也

空空如也

1 2 3 4
收藏数 62
精华内容 24
关键字:

vb在窗体上显示数组