精华内容
下载资源
问答
  • VB弹出消息,控件+示例+源码,基于VB的消息控件及应用源码,本消息控件与系统自带消息的使用方法大致相同,不过个人认为要比Windows系统的美观许多,但没有终止、重试、忽略三个按纽(如有必要,请自行添加...
  • VB顶级菜单和右键菜单自绘的混合效果,  Private Type DRAWITEMSTRUCT  CtlType As Long ‘控件类型  CtlID As Long ‘控件id  itemID As Long ‘菜单项、... ItemData As Long ‘列表框或组合框中某一项的值
  • 动态创建控件主方法与VB的标准方法一致,这在MSDN中也有相应的说明。需要指出的是,这不是一个BUG,而是作者故意留下的一个后门,以方便学生或自由软件开发者。 下面我通过一个例子 给大家演示一下: 这...

      经常有网友询问如何免费使用Anole控件,其实方法很简单,只要您使用代码动态建立控件就可以不弹出注册对话框了。动态创建控件主方法与VB的标准方法一致,这在MSDN中也有相应的说明。需要指出的是,这不是一个BUG,而是作者故意留下的一个后门,以方便学生或自由软件开发者。

      下面我通过一个例子 给大家演示一下:

      这个例子演示了如何动态建立 ComboBox 控件,并设置 Sort 和 Style 属性。工程需要一个窗体,三个Lable控件。

      Option Explicit

      Private WithEvents acComboBox1 As acComboBox

      Private Sub acComboBox1_SelectedIndexChanged(ListIdx As Long)
        '' 注意,这里使用了 SelectedIndexChanged 事件
        Label1.Caption = "Text: " & acComboBox1.List(ListIdx)
        Label2.Caption = "Listindex: " & acComboBox1.ListIndex
        Label3.Caption = "ItemData: " & acComboBox1.ItemData(ListIdx)

      End Sub

      Private Sub Form_Load()
        '' 动态建立控件
        Set acComboBox1 = Me.Controls.Add("AnoleComboBox.acComboBox", "acComboBox1")
        
        With Me!acComboBox1
          .Visible = True
          .Width = 3000
          .Height = 400
        End With

        Dim i As Long

        For i = 0 To 50
          acComboBox1.AddItem "项目" & CStr(i)
          acComboBox1.ItemData(acComboBox1.NewIndex) = i
        Next


        '' 注意,下面的属性是在运行时改变的,现在您应该可以看到它的优势了
        acComboBox1.Sorted = True
        acComboBox1.Style = vbComboDropdownList

      End Sub

    展开全文
  • 示例VB的阶乘运算,排列算法,组合运算算法等,在使用时注意,点击等号进行运算。在中输入计算值,然后点等号。
  • VB 神童教程” <br>第二章:控件学习 <br>第一节——Label 控件 <br>第二节——TextBox控件 <br>第三节——综合示例一 <br>第四节——CommandButton 控件 <br>第五节——单选与复选控件 <br>第...
  • VB如何实现Undo(撤消)功能

    千次阅读 2011-01-22 20:16:50
    在许多应用程序中,例如...下面介绍一下对于标准的文本框或组合框实现UNDO功能的示例代码: Declare Function SendMessage Lib"user"(ByVal hWnd As Integer,ByVal wMsg As Integer,wParam As Integer,l...

    在许多应用程序中,例如许多编辑软件都有UNDO功能。它给我们带来了方便。
    那么在VB中能不能实现UNDO功能呢?答案是肯定的。下面介绍一下对于标准的文本
    框或组合框实现UNDO功能的示例代码:

    Declare Function SendMessage Lib"user"(ByVal hWnd As Integer,
    ByVal wMsg As Integer,wParam As Integer,lparam As Any) As Long
    Global Const WM_USER = &H400
    Global Const EM_UNDO = WM_USER + 23
    UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0)

    摘自:网络整理


    相关参考


    VB查找替代字符串的函数

    VB换行气泡提示类

    VB/VBA通用路径选择对话框

    ASCII码表0-255完整版 附详细注释

    VBKeyAscii

    VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

    VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

    VB如何实现Undo(撤消)功能

    VB计算文本文件的行数

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

    微软 Small Basic 简体中文版 已经发布了

    VB操作Excel 非常详细 [网摘]

    VB如何判断文件正被占用/已被打开

    VB添加listbox 的水平卷动轴

    VB打开资源管理器并指定文件

    VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

    VB中的指针技术

    Visual Basic编程常见问题及解答(1

    Visual Basic编程常见问题及解答(2

    Visual Basic编程常见问题及解答(3

    VisualBasic变量、常数和数据类型及过程概述

    VB6的后期绑定和前期绑定

    VB用户控件制作讲解与实例

    VB制作OCX控件的步骤

    VBFSO的调用的两种方法

    VB操作EXCEL

    VB判断文件及目录的存在性

    VB网站(最新、经典源代码、技术文章、基础知识)

    VB得到指定文件夹下的文件列表

    VB产生随机任意大小文件挤满硬盘

    VB文件的读写操作

    VB创建超链接 打开指定网站的几种方法

    VB 源码 删除重复行程序 函数

    VB 计算自己程序段所用时间

    VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编

    几行VB代码拿下注册表

    VB 在浏览器中打开指定网址

    VB窗口置顶

    vb ListBox 之中点击右键弹出菜单

    展开全文
  • 1,storage.ZIP 结构化存储文件(40KB) 2,wininet_connection.ZIP CWinInetConnection示例工程(12KB) 3,drvscan.ZIP 快速的全盘文件查找程序(7KB) 4,vbfileop.ZIP 使用WriteFile 块读/写数据...
  • mschart控件 这是一个简单的VB6代码段,该代码段使用MSChart控件在VB6.0中显示图表。 要使用此示例,请按照以下步骤操作 ... 向现有表单添加一个组合框,一个Mschart控件和一个复选框。 将以下代...

    mschart控件

    这是一个简单的VB6代码段,该代码段使用MSChart控件在VB6.0中显示图表。

    要使用此示例,请按照以下步骤操作

    在VB6中创建一个新项目

    下拉“项目”菜单,然后选择“组件”。

    选中Microsoft ChartControl 6.0(OLEDB)旁边的复选框,单击“确定”。

    向现有表单添加一个组合框,一个Mschart控件和一个复选框。

    将以下代码粘贴到代码窗口中

    Private Sub Form_Load()
    'Fill the combo box with different types of chart types.
    With Combo1
    .AddItem "3D Bar"
    .AddItem "2D Bar"
    .AddItem "3D Line"
    .AddItem "2D LIne"
    .AddItem "3D Area"
    .AddItem "2D Area"
    .AddItem "3D Step"
    .AddItem "2D Step"
    .AddItem "3D Combination"
    .AddItem "2D Combination"
    End With
    'Declare 2D array to store values for the chart
    'Variant ----so that can store both text as well as numbers
    Dim X(1 To 7, 1 To 6) As Variant 
    X(1, 2) = "Steel"
    X(1, 3) = "Aluminium"
    X(1, 4) = "Copper"
    X(1, 5) = "Buxite"
    X(1, 6) = "Lead" 
    X(2, 1) = "JAN"
    X(2, 2) = 2
    X(2, 3) = 3
    X(2, 4) = 4
    X(2, 5) = 5
    X(2, 6) = 6 
    X(3, 1) = "FEB"
    X(3, 2) = 4
    X(3, 3) = 6
    X(3, 4) = 3
    X(3, 5) = 10
    X(3, 6) = 18 
    X(4, 1) = "MAR"
    X(4, 2) = 1
    X(4, 3) = 3
    X(4, 4) = 8
    X(4, 5) = 7
    X(4, 6) = 9 
    X(5, 1) = "APR"
    X(5, 2) = 4
    X(5, 3) = 6
    X(5, 4) = 13
    X(5, 5) = 10
    X(5, 6) = 12 
    X(6, 1) = "MAY"
    X(6, 2) = 2
    X(6, 3) = 9
    X(6, 4) = 9
    X(6, 5) = 12
    X(6, 6) = 7 
    X(7, 1) = "JUN"
    X(7, 2) = 13
    X(7, 3) = 20
    X(7, 4) = 5
    X(7, 5) = 18
    X(7, 6) = 11
    '2D array is the data for the chart control.
    MSChart1.ChartData = X
    'Default chart type is se to 2D bar chart.
    MSChart1.chartType = 1 
    End Sub 
    Private Sub Check1_Click()
    If Check1.Value = 1 Then
    'Show Legends
    MSChart1.ShowLegend = True
    Check1.Caption = "&Hide Legends"
    Else
    'Hide Legends
    MSChart1.ShowLegend = False
    Check1.Caption = "&Show Legends"
    End If
    End Sub 
    Private Sub Combo1_Click()
    'To change the chart type at run time.
    MSChart1.chartType = Combo1.ListIndex
    End Sub
    注意:-上面的示例代码适用于控件的默认名称,如果控件的名称不同,则需要进行相应的修改。

    翻译自: https://bytes.com/topic/visual-basic/insights/701826-drawing-chart-using-mschart-control

    mschart控件

    展开全文
  • 这是一个简单的VB6代码段,该代码段使用MSChart控件在VB6.0中显示图表。 要使用此示例,请按照以下步骤操作 在VB6... 向现有表单添加一个组合框,一个Mschart控件和一个复选框。 将以下代码粘贴到代码窗口中 Privat...

    这是一个简单的VB6代码段,该代码段使用MSChart控件在VB6.0中显示图表。

    要使用此示例,请按照以下步骤操作

    在VB6中创建一个新项目

    下拉“项目”菜单,然后选择“组件”。

    选中Microsoft ChartControl 6.0(OLEDB)旁边的复选框,单击“确定”。

    向现有表单添加一个组合框,一个Mschart控件和一个复选框。

    将以下代码粘贴到代码窗口中

    Private Sub Form_Load()
    'Fill the combo box with different types of chart types.
    With Combo1
    .AddItem "3D Bar"
    .AddItem "2D Bar"
    .AddItem "3D Line"
    .AddItem "2D LIne"
    .AddItem "3D Area"
    .AddItem "2D Area"
    .AddItem "3D Step"
    .AddItem "2D Step"
    .AddItem "3D Combination"
    .AddItem "2D Combination"
    End With
    'Declare 2D array to store values for the chart
    'Variant ----so that can store both text as well as numbers
    Dim X(1 To 7, 1 To 6) As Variant 
    X(1, 2) = "Steel"
    X(1, 3) = "Aluminium"
    X(1, 4) = "Copper"
    X(1, 5) = "Buxite"
    X(1, 6) = "Lead" 
    X(2, 1) = "JAN"
    X(2, 2) = 2
    X(2, 3) = 3
    X(2, 4) = 4
    X(2, 5) = 5
    X(2, 6) = 6 
    X(3, 1) = "FEB"
    X(3, 2) = 4
    X(3, 3) = 6
    X(3, 4) = 3
    X(3, 5) = 10
    X(3, 6) = 18 
    X(4, 1) = "MAR"
    X(4, 2) = 1
    X(4, 3) = 3
    X(4, 4) = 8
    X(4, 5) = 7
    X(4, 6) = 9 
    X(5, 1) = "APR"
    X(5, 2) = 4
    X(5, 3) = 6
    X(5, 4) = 13
    X(5, 5) = 10
    X(5, 6) = 12 
    X(6, 1) = "MAY"
    X(6, 2) = 2
    X(6, 3) = 9
    X(6, 4) = 9
    X(6, 5) = 12
    X(6, 6) = 7 
    X(7, 1) = "JUN"
    X(7, 2) = 13
    X(7, 3) = 20
    X(7, 4) = 5
    X(7, 5) = 18
    X(7, 6) = 11
    '2D array is the data for the chart control.
    MSChart1.ChartData = X
    'Default chart type is se to 2D bar chart.
    MSChart1.chartType = 1 
    End Sub 
    Private Sub Check1_Click()
    If Check1.Value = 1 Then
    'Show Legends
    MSChart1.ShowLegend = True
    Check1.Caption = "&Hide Legends"
    Else
    'Hide Legends
    MSChart1.ShowLegend = False
    Check1.Caption = "&Show Legends"
    End If
    End Sub 
    Private Sub Combo1_Click()
    'To change the chart type at run time.
    MSChart1.chartType = Combo1.ListIndex
    End Sub
    注意:-上面的示例代码适用于控件的默认名称,如果控件的名称不同,则需要进行相应的修改。

    From: https://bytes.com/topic/visual-basic/insights/701826-drawing-chart-using-mschart-control

    展开全文
  • 14.6.1 客户/服务器示例——VB.NET:对象定义代码 228 14.6.2 客户/服务器示例——VB.NET:客户代码 229 14.6.3 客户/服务器示例——VB.NET:服务器代码 230 第15章 设计模式 232 15.1 为什么研究设计模式 232 ...
  • Java开发技术大全(500个源代码).

    热门讨论 2012-12-02 19:55:48
    HelloNative.obj 用VB编译生成的目标文件 HelloNativeTest.java 测试本地化是否成功的类文件 instanceVar.java 定义一个实例成员变量 invokeByObject.java 对象实参传递示例程序 invokeByValue.java 传值调用...
  • 其中,用户界面设计部分包括:按钮、编辑框、静态控件、组合框、列表框、树视、列视、工具条、状态条、菜单、其他控件、对话框、文档视窗模型、文件和文件夹、Shell、高级用户界面。多媒体部分包括GDI、位图、打印、...
  • DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1345个易语言模块

    2012-01-27 19:41:59
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1350多个精品易语言模块提供下载

    热门讨论 2011-06-06 17:51:09
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 536组合框 Combobox) 103 53.7单选按钮( Radio Button)和复选框( CheckBox) 104 538图片框( Pictruebo×)..105 54用 Message Box类显示消息窗口 541消息框的显示……106 5.4.2消息框的返回值 107 综合案例:职员信息...
  • 1.4 增强示例应用程序的功能 37 1.4.1 定制代码 39 1.4.2 构建应用程序 43 1.4.3 重用第一个windows窗体 50 1.5 visual studio 2010中的特色功能 51 1.5.1 构建配置 51 1.5.2 任务列表 53 1.5.3 ...
  • 这样ASP.NET就有四种组合VB+ACCESS,VB+SQL,C#+ACCESS,C#+SQL,本教程会使用C#+ACCESS,兼顾四种来写,让大家对ASP.NET有一个全面的认识。虽然说学习ASP.NET不需要任何ASP基础,但是我觉得如果大家ASP不会,还是...
  • 1.4 增强示例应用程序的功能 37 1.4.1 定制代码 39 1.4.2 构建应用程序 43 1.4.3 重用第一个windows窗体 50 1.5 visual studio 2010中的特色功能 51 1.5.1 构建配置 51 1.5.2 任务列表 53 ...
  • asp.net知识库

    2015-06-18 08:45:45
    实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    vb实例。 p2p+technology 文档。 P2P视频技术源码(含开发文档) 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求的长度在第一个INT中指定. 2) 每个服务器通常会向多种客户提供服务...
  • arcgis工具

    2012-10-22 22:37:31
    右键点击数据,在环境菜单中选择高级绘制选项(Advanced Drawing Options),用注记的模版图层去遮盖线图层,确定 23.同一图层使用Clip实现图斑的无缝拼接 当一个图斑的边界确定,需要实现两个图斑的无缝拼接时...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • 编辑1.文本颜色 = 到整数 (j)。 .参数 窗口句柄, 整数型 .参数 返回_颜色, 文本型, , 返回的颜色~~需要传回整数 .子程序 申请内存Pro, 整数型, 公开, 成功返回申请的首地址,失败返回0;申请的内存可读可写可...
  • 第1 章 VB 2 0 0 8核心元素.......................... 1 1 . I 原来的关键字和语法................... 2 1 . 2 值类型和引用类型........................7 1 . 3 命令:条件语句.........................10 ...

空空如也

空空如也

1 2
收藏数 28
精华内容 11
关键字:

vb组合框示例