-
-
6关于窗体放大时SSTab控件显示不全的问题 高手们,你们好! 我在窗体中使用了SSTab控件,设置了5个选项卡。我又添加了让VB自动改变控件大小的代码,运行程序的时候放大窗体,只有一个选项卡上的控件的可以正常显示,其他的的选项卡里什么都没有了,请问这种问题如何解决?谢谢!
-
15就是鼠标停留在上面会显示的文字。 Image1.ToolTipText="第一" & 【换行】 & "第二" & 【换行】 & "第三" 如何实现
-
1跪求,现在尤其缺第二张的,只装第一张并不完整
-
1大学生经常用的origin中,“信号处理”.“平滑”.平滑方法中,有个FFT滤波方法,想请教吧里各位大神,怎么把这个鬼玩意搬运到vba中
-
1用vb编写的会员管理系统,如何将系统中的会员积分写入磁条卡?
-
4wps内的宏要用什么计算机语言编写?是vb吗?
-
425
-
4
-
1求教,怎么获取变量自身名称字串? dim abcd as object 怎么获取 “abcd”
-
5在IDE里面编写代码,获取当前系统的DPI缩放值,是正常的,可以识别缩放倍数。但是只要一编绎成.exe文件,就全都认为是1.0的倍数。搞不懂了,无论我把系统缩放去调成多少,反正运行.exe文件就是1.0,但你只要一进IDE,就正常了. 请教下高手什么原因,怎么解决。 想用Bitblt做一个复制当前屏幕的功能,结果因为系统缩放只能截一半屏幕; 球球了...
-
4用VB6.0设计界面时,经常会调整控件的大小和位置,即使注意力集中也会出现失误。操作后控件位置找不到了,例如frame里的按钮跑到显示区外面去了,在实际显示的frame区域里找不到,还要将frame变大特意去找丢失的按钮。又不会在调整控件时特意去记控件的名称,否则很影响效率。 如果,调整控件大小和位置的操作可以退回上一步,会提高设计效率。请问有没有这个功能?
-
8
-
13如题,本人最近联系写了一个COM输入数据+WinIO+DirectX联动的VB程序,但是同样的代码在两台电脑上跑其中一台完美运行而另一台电脑上WinIo似乎就根本不
-
3Sub quse(x0, y0, r, g, b) Dim p As POINT p.X = x0: p.Y = y0 dc = GetDC(0) d = GetPixel(dc, p.X, p.Y) r = d Mod 256 g = (d \ 256) Mod 256 b = d \ 256 \ 256 Call ReleaseDC(0, dc) End Sub我发现获取的rgb值不对,跟肉眼看这个点的颜色不一样,这是为什么?
-
2
-
4https://www.vbforums.com/showthread.php?892123-VB6-AddIn-IDE-Cod 基本原理是自己设定折叠区域,然后点击折叠按钮把区域内的代码保存在所有代码的底部
-
0各位大佬,cardview控件右上角会有个放大镜按钮,怎么把这个按钮隐藏#CardView#
-
2如图,这是一个非文本文件(Dll),用记事本打开是以上情况,编码是ANSI,我只想读取最后几排文字的内容,比如从@ 到@中间的字符; 请大佬指教一下;用了很多办法都不行;
-
3一个动态立方体的程序,能绕Y轴或X轴旋转的
-
2大佬求个思路,主要是看电影全屏的时候我要运行一些代码,如何做?
-
27
-
4
-
4
-
3
-
2Shell "NotePad.exe /P 文件.txt",从默认打印机输出,但怎么指定打印机呢?
-
8
-
10我是做机械设计的,用的软件是SOLIDWORKS,比如我的文件名是: M20125-外壳-20240125 我需要将文件名分成三部分, 代号:M20215 名称:外壳 版本号:20240125 下面是网上找的一些类似的程序,求好人看下,添几句代码 Dim swApp As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object Dim a As Integer Dim b As String Dim m As String Dim e As String Dim k As String Dim t As String Dim c As String Dim j As Integer Dim strmat As String Dim tempvalue As S
-
14
-
5vb版本:visual studio 2022 我在网上看到相关方法是将版本信息改为update,但都是在vb6上操作的,vs2022要怎么设置啊 感谢各位大佬
-
15
-
4我在Excel工作薄中,就建一个按钮,点击后用vBA建一个Accesd数据库,但双击这个数据库,提示可能损坏,打不开。求建立Access并能双击打开的代码。
-
8
-
8strsql="select * from examine_main_table where regist_date between '" & DTPicker1 & "' and '" & DTPicker2 & "' " 求教,我在查询两个日期之间的数据记录时,比如我有一条记录是2024/7/15,我在2024/7/1-2024/7/2之间也能查到15日的这一条记录,跟见鬼了似的,但是2024/7/1-2024/7/14之间正常(查不到15日的记录),这是什么意思啊?BUG吗?
-
21VB6内新建一个窗体,它的最大尺寸是不是和当前电脑显示器的分辨率有关? 我将窗体通过鼠标手动拖动到最大状态,发现Width是28800,Height是16200。分别除以15后,刚好是显示器的分辨率1920和1080。 请问如何将窗体尺寸设置成更大的尺寸?
-
21
-
110
-
10以前我发了个利用新浪的天气API获取气象预报的代码,但现在新浪的这个API取不到数据了,不知其原因,所以下面另发获取气象预报的代码。 一、新建一个工程,在窗体上添加2个按纽,Command1的标题为“天气预报”,Command2的标题为“城市代码”;再添加2个文本框,Text1用于输入城市名或者省名,Text2用于显示获取到的信息。再添加1个计时器,用于获取实时天气数据,其Interval=60000(1分钟)。 代码如下: Dim MyHTTP As Object, t As Integer Private Sub
-
42
-
4
-
2
-
6如何在任务栏上创建进度条(如图),万分感谢大佬指教。
-
125
-
4知道两个点经纬度,算两点之间的距离,怎么用VB写?
-
12
-
9Private Sub Command1_Click() '有面值1.2.5元的人民币,共取30张,合计80元,有多少种取法,请枚举打印面值。 Dim x, y, z, n% n = 0 For x = 1 To 30 For y = 1 To 30 z = 30 - x - y If x + 2 * y + 5 * z = 80 Then n = n + 1 End If Next y Next x Print "人民币取法总数为:"; n; "枚举如下:" For x = 1 To 30 For y = 1 To 30 z = 30 - x - y If x + 2 * y + 5 * z = 80 Then Print "1元面值有:"; x; "张", "2元面值有:"; y; "张", "5元面值有:"; z; "张" End If Next y Next
-
0
-
154
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!