-
VB弹出消息框,控件+示例+源码
2011-11-07 20:35:45VB弹出消息框,控件+示例+源码,基于VB的消息框控件及应用源码,本消息框控件与系统自带消息框的使用方法大致相同,不过个人认为要比Windows系统的美观许多,但没有终止、重试、忽略三个按纽(如有必要,请自行添加... -
顶级菜单和右键菜单混合,VB示例源代码.rar
2019-07-09 16:41:40VB顶级菜单和右键菜单自绘的混合效果, Private Type DRAWITEMSTRUCT CtlType As Long ‘控件类型 CtlID As Long ‘控件id itemID As Long ‘菜单项、... ItemData As Long ‘列表框或组合框中某一项的值 -
免费使用Anole示例——动态创建带有排序功能和下拉列表风格的组合框
2007-05-22 17:14:00动态创建控件主方法与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 SubPrivate 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 LongFor i = 0 To 50
acComboBox1.AddItem "项目" & CStr(i)
acComboBox1.ItemData(acComboBox1.NewIndex) = i
Next
'' 注意,下面的属性是在运行时改变的,现在您应该可以看到它的优势了
acComboBox1.Sorted = True
acComboBox1.Style = vbComboDropdownList
End Sub -
VB 阶乘运算,排列,组合算法的源代码.rar
2019-07-09 17:32:55示例VB的阶乘运算,排列算法,组合运算算法等,在使用时注意,点击等号进行运算。在框中输入计算值,然后点等号。 -
神童教程:跟我来学VB
2007-08-19 21:53:46VB 神童教程” <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取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用
★Visual Basic编程常见问题及解答(1)
★Visual Basic编程常见问题及解答(2)
★Visual Basic编程常见问题及解答(3)
★VisualBasic变量、常数和数据类型及过程概述
★VB6的后期绑定和前期绑定
★VB 计算自己程序段所用时间
★VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编
★VB 在浏览器中打开指定网址
-
VB编程资源大全(源码 文件)
2007-10-17 22:40:031,storage.ZIP 结构化存储文件(40KB) 2,wininet_connection.ZIP CWinInetConnection示例工程(12KB) 3,drvscan.ZIP 快速的全盘文件查找程序(7KB) 4,vbfileop.ZIP 使用WriteFile 块读/写数据... -
mschart控件_使用MSChart控件绘制图表。
2020-07-08 08:13:25mschart控件 这是一个简单的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控件
-
使用MSChart控件绘制图表。
2020-05-18 21:20:52这是一个简单的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
-
写给大家看的面向对象编程书(第3版).[美]Matt Weisfeld(带详细书签).pdf
2018-12-21 14:26:2014.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:48HelloNative.obj 用VB编译生成的目标文件 HelloNativeTest.java 测试本地化是否成功的类文件 instanceVar.java 定义一个实例成员变量 invokeByObject.java 对象实参传递示例程序 invokeByValue.java 传值调用... -
Windows 2000编程利器--Visual C++编程高手
2008-11-07 02:53:46其中,用户界面设计部分包括:按钮、编辑框、静态控件、组合框、列表框、树视、列视、工具条、状态条、菜单、其他控件、对话框、文档视窗模型、文件和文件夹、Shell、高级用户界面。多媒体部分包括GDI、位图、打印、... -
1350多个精品易语言模块
2015-07-26 12:21:30DirectX8VB组件调用模块.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:59DirectX8VB组件调用模块.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:09DirectX8VB组件调用模块.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到... -
C# Winform数据库应用设计(附开发案例
2021-02-07 13:30:42536组合框 Combobox) 103 53.7单选按钮( Radio Button)和复选框( CheckBox) 104 538图片框( Pictruebo×)..105 54用 Message Box类显示消息窗口 541消息框的显示……106 5.4.2消息框的返回值 107 综合案例:职员信息... -
Visual.Basic.2010.&.NET4.高级编程(第6版)-文字版.pdf
2013-03-20 15:41:421.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--我认为ASP.NET比ASP难很多,希望大家做好准备
2008-12-05 08:41:03这样ASP.NET就有四种组合:VB+ACCESS,VB+SQL,C#+ACCESS,C#+SQL,本教程会使用C#+ACCESS,兼顾四种来写,让大家对ASP.NET有一个全面的认识。虽然说学习ASP.NET不需要任何ASP基础,但是我觉得如果大家ASP不会,还是... -
Visual Basic 2010 & .NET4 高级编程(第6版)-文字版
2013-03-21 08:54:511.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:17vb实例。 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:12p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库... -
vc++ 应用源码包_4
2012-09-15 14:38:35p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库... -
vc++ 应用源码包_3
2012-09-15 14:33:15p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库... -
补丁模块(带源码)InlinePatch,Hook,内存DLL注入等等
2015-09-24 13:07:41编辑框1.文本颜色 = 到整数 (j)。 .参数 窗口句柄, 整数型 .参数 返回_颜色, 文本型, , 返回的颜色~~需要传回整数 .子程序 申请内存Pro, 整数型, 公开, 成功返回申请的首地址,失败返回0;申请的内存可读可写可... -
Visual Basic 2008高级编程(中文PDF第5版) 45M版
2016-04-25 08:28:15第1 章 VB 2 0 0 8核心元素.......................... 1 1 . I 原来的关键字和语法................... 2 1 . 2 值类型和引用类型........................7 1 . 3 命令:条件语句.........................10 ...