可以自己做一个这样的控件，或者不做自定义控件。
你可以用image控件来实现按扭的功能，准备两张大小一样的图片，当鼠标移动到image控件上时，显示为图片1，当鼠标离开后，显示图片2，这样就可以是动态的了，在image1_click()事件中写下你要做的动作，这样就可以了。
自定义控件也是按这种方式来做的。
……继续阅读 »
2年前 (2022-10-01) 10浏览 0评论
0个赞
关于在用英文半角双引号（就是 ” ）引起来的字符串中想要加入英文半角双引号（仍然是 ” ）如何做到？的问题
再加一个”
例如字符串a”b”c
变成 a””b””c就行了
……继续阅读 »
2年前 (2022-10-01) 30浏览 0评论
0个赞
关于VB中，在打开Drivelistbox及dirlistbox时，怎样使其默认在程序所在位置。的问题
楼主大虾真厉害，我可不知道怎样让drivelist和dirlist不默认在程序所在位置阿~~
本来就默认的是程序所在位置阿
除非你手动改了，该回来就是了
private sub form_resize()
dir1.path=app.path
drive1.drive=left(app.path,2)
end su……继续阅读 »
2年前 (2022-10-01) 11浏览 0评论
0个赞
关于设a=10,b=5,c=1.执行语句print a>b>c后，窗体上显示的是（）
我觉得是true,可答案不是这个,是-1.为什么呢的问题
其实a>b>c这样的语句显然是合法
因为它可以转换为(a>b)>c或者a>(b>c)
因为bool型本身可以当作为一个int来看待
在vb中，true和-1等价，false和0等价
从这样的机制来看可能是a>(b>c……继续阅读 »
2年前 (2022-10-01) 26浏览 0评论
0个赞
关于在一个窗体中用show打开另一个窗体，同时再把第一个窗体关闭。谢谢了。的问题
Private Sub Command1_Click()
Form2.Show
Unload Form1’这是在内存中卸载Form1
End Sub
Private Sub Command2_Click()
Form2.Show
Form1.Hide’这是隐藏Form1,仍在内存驻……继续阅读 »
2年前 (2022-10-01) 15浏览 0评论
0个赞
关于我想产生[10,20]之间的随机偶数怎么写啊，写出来的都不是偶数，只是随机数，请高手指点的问题
rnd
为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound – lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
如你的要求:
把10,20都除2嘛
INT(RN……继续阅读 »
2年前 (2022-10-01) 11浏览 0评论
0个赞
关于VBA 如何判断指定路径的文件夹是否为空（无文件夹和文件）的问题
Dim f1 As Object ? Set f1 = CreateObject(“scripting.filesystemobject”)? mPath?=ThisWorkbook.Path & “ak” If f1.folderexists(mPath) = False Then R……继续阅读 »
2年前 (2022-10-01) 20浏览 0评论
0个赞
vb.net
……继续阅读 »
2年前 (2022-10-01) 27浏览 0评论
0个赞
关于VB编S=1-1/3!+1/5!-1/7…..人脑进入死循环…Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As Integer, p As Integer, j As Integer
n = Val(Text1.Text)
s = 1
p = 1
For i = 2 To ……继续阅读 »
2年前 (2022-10-01) 21浏览 0评论
0个赞
对任何商用的应用程序而言，生成数据报表都是一项很重要的功能。一个系统中可能包含有很有用的数据，但如果没有一种很好的办法能向用户表示出来，这些数据也就没有什么意义了。
创建一个简单的数据报表
本节中将创建一个简单的数据报表，该报表使用数据环境设计器作为数据源。数据环境设计器使用和Visual Basic一起提供的NorthWind数据库创建一个简单的层次结构游标，该游标包含两个表：Customers和Orders，并使……继续阅读 »
2年前 (2022-10-01) 11浏览 0评论
0个赞
关于我想将状态栏中的内容均匀的显示于下方,可如何设置呢?我设计的是这样的:怎么修改啊????的问题
solidco2 写的程序很好,不过解决他的问题,可将程序稍作修改即可:
Private Sub Form_Resize()
For i = 1 To 4
StatusBar1.Panels(i).Width = Me.ScaleWidth / 4
Next
End Sub
把me.Width/4 改成 Me.Scal……继续阅读 »
2年前 (2022-10-01) 9浏览 0评论
0个赞
关于Begin VB.Form Form1
Caption = “文件管理器”
ClientHeight = 3780
ClientLeft = 165
ClientTop = 735
ClientWidth = 4995
LinkTopic = “Form4”
LockControls = -1 ‘Tr……继续阅读 »
2年前 (2022-10-01) 26浏览 0评论
0个赞
关于我写的程序,大家看看有什么错误?运行不了啊!!!
Private Sub Form_Load()
Dim a, b, c, i As Integer
For i = 100 To 1000
a = i / 100 ‘百位上的数
b = (i / 10) Mod 10 ‘十位上的数
c = i Mod 10 ‘个位上的数
If 100 * a + 10 * b……继续阅读 »
2年前 (2022-10-01) 20浏览 0评论
0个赞
关于我想用VB编一个程序 并且有背景音乐 请问怎么做 请说的具体点的问题
在VB开发环境中的单击“工程”→“部件”对话框中，添加MediaPlayer控件。如果要播放MP3，则至少要6。01以上版本的MediaPlayer控件(Windows98中自带的就是这个版本)。如果在部件对话框中找不到MicroSoft Mediaplayer Control，那可能是你没有安装附件所致，这需要在系统中安装相应的附件。
正因为……继续阅读 »
2年前 (2022-10-01) 9浏览 0评论
0个赞
关于在vb中,如何将inputbox中自己输入的内容放进listbox中,这段代码怎么写?请高人指点!谢谢 !的问题
Private Sub Command1_Click()
dim a as string
a=inputbox(“请输入”,”标题”)
List1.AddItem a,0
End Sub
inputbox不是控件
……继续阅读 »
2年前 (2022-10-01) 18浏览 0评论
0个赞
关于1．功能：文本编辑（增加、修改、删除、查找替换），文件操作（新建、打开、保存、另存为）。
2．要求：界面有菜单、工具栏、状态栏等。必须使用多文档界面和富文本框（RichTextBox），可以同时打开多个文档，可以处理纯文本文件（txt）和RTF格式文件（rtf）。
要源码 网上下载的不要
在这谢谢各位了 救命用的的问题
Private Sub Command1_Click()
Clipboard。SetTe……继续阅读 »
2年前 (2022-10-01) 26浏览 0评论
0个赞
关于RT的问题
作为VB6.0的后续版本，VB.NET更加稳定，而且完全面向对象。也许你还记得，VB6.0部支持继承、重载和接口，所以不是真正面向对象的。而VB.NET则支持这些面向对象特性。VB6.0有两个薄弱环节——多线程和异常处理。在VB.NET中，开发多线程应用和使用C++/C#别无二致，结构化异常处理也得到支持。
象、封装、多态、继承是面向对象语言的四个基本属性。VB6.0不支持继承，而VB.NET则不然。……继续阅读 »
2年前 (2022-10-01) 18浏览 0评论
0个赞
关于关于VB的问题， 我常常在网上看到VB6.0在win98下运行，为什么？
我是刚刚学习VB的， 在winxp sp2下运行，可以吗？ 的问题
我做方面开发的，在Windows 98/Me/2000/XP/2003 Server下都可以运行
……继续阅读 »
2年前 (2022-10-01) 24浏览 0评论
0个赞
关于我是一名非计算机专业的学生，非常喜欢编程所以自学了VB，为了能看懂大部分的编程书为VB所用，我又学了C/C++、DELPHI、JAVA，能现在能写WIN下的系统、网络、数据库方面的大部分应用，可这段时间我却很迷茫找不到学习的方向，不知道接下来的路该怎么走，希望高手可以指点迷津，小弟不胜感谢的问题
编程也是有好多种，所有的语言都学不现实，我觉得与你打算从事那类编程有关。如果你从事操作系统、工具软件、游戏、驱动程序方……继续阅读 »
2年前 (2022-10-01) 21浏览 0评论
0个赞
个人认为：
无论是面对考试，还是拿出去工作。基础知识一定要搞清楚。比如说对概念的理解。要经常上机操作。程序设计上机操作是很重要的，无论考试是否考上机。另外一定要有一个清晰的思路，永远知道这个程序是干什么的，自己下一步应该做什么？能够找到自己的弱项。最后，还要有信心，有热情。
……继续阅读 »
2年前 (2022-10-01) 11浏览 0评论
0个赞
关于要个跟按键精灵差不多的,要不停的按ctrl,差不多0.1秒按一次,不是要按住的,要用HOME按键启动,END按键停止,我只要代码.的问题
在窗体中添加一个 Timer 控件,其 Enabled 属性设置为 False ,并复制以下代码:
‘========================================================
Private Sub Form_KeyDown(……继续阅读 »
2年前 (2022-10-01) 30浏览 0评论
0个赞
关于
已知一个较大的数,如455
现在求一个比它小的数,所求的数与它互质!的问题
质数就是只能被1和自身除尽的数。
设用户输入数为N 算法如下：
设一个数组P（I）来保存得到的质数
i=1
do while i
……继续阅读 »
2年前 (2022-10-01) 27浏览 0评论
0个赞
关于 最近我一直在设计一个多窗口程序，其中涉及到一些自定的变量，我要给这些变量定义一些内容，请问有什么方法可以让我定义的这些变量内容可以在整个程序中通用呢？请说得详细一些，谢谢！的问题
在模块中用Global定义的变量为全局变量。
如新建一个module1.bas
在里面写上
global a as integer
……继续阅读 »
2年前 (2022-10-01) 21浏览 0评论
0个赞
关于例如:初斌值,函数调用,标识符的作用以及解释的问题
第一个是“赋初值”吧，就是声明一个变量之后给他赋直
函数调用比较常见，你在使用函数或者过程的时候都是函数调用，比如“a=sin(35)”，就是调用的sin()函数
标示符是指的c/c++里面的函数名或变量名阿，我可不知道vb里面还有这个说法。
这三个名词每一个编程里都有啊，怎么能说是vb里面的专有名词呢
……继续阅读 »
2年前 (2022-10-01) 10浏览 0评论
0个赞
关于Q-basic软件的问题
文件体积超过这里能上传得上限，所以我上传到我的共享资料中了
Q-basic7
下面是实际截图
PS:实在不推荐你学Q-basic
……继续阅读 »
2年前 (2022-10-01) 25浏览 0评论
0个赞
关于计算1/（1！+（1！+3！）+（1！+3！+5！）+….+（1！+3！+….+n!））的值？
在窗体上有一个text控件，一个command控件
有下面这样一段程序
Option Explicit
Private Sub Command1_Click()
Dim intA As Long
Dim intB As Long
Dim intS As Long
Dim intI As Integer
……继续阅读 »
2年前 (2022-10-01) 22浏览 0评论
0个赞
关于这道题怎么写代码?
每隔2min在文本框新的一行上输出当前的系统时间及生成的10个(0,100)之间的随机整数,文本框带双向滚动条.
实在是难!!的问题
楼主好像没有要求说要把内容写如到文本文件中啊？？？
简化的程序：
Option Explicit
dim rndwb,i as interger
dim wb as str
private sub form_load()
eval=2000’……继续阅读 »
2年前 (2022-10-01) 19浏览 0评论
0个赞
关于我建了一张表，车位号、业主号、车位位置、车位状态，我想通过一个按钮找出业主号为空的车位号，用Vb怎么实现，我每次显示都是没有记录的，可是我 把表里所有的业主号都置空还是没有相应的记录！！请各位帮忙！
部分代码如下
id= “Select * from proprietors where proprietorsID=’” & “” &am……继续阅读 »
2年前 (2022-10-01) 14浏览 0评论
0个赞
关于
他们说要这样:
要用API
先添加一个模块~~ 代码如下：
Public Declare Function SetLayeredWindowAttributes Lib “user32” (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public……继续阅读 »
2年前 (2022-10-01) 11浏览 0评论
0个赞
关于在VB中有这样一个语句，我想了老久都没有想通，希望哪个兄弟可以帮一下忙？9 and -2 结果为8的问题
这是个二进制的”and”问题,即同时为true的问题.
……继续阅读 »
2年前 (2022-10-01) 15浏览 0评论
0个赞
