上个帖被吞了

VB2017 里没有unload me,请教老哥应该怎么写？ 我想要卸载一个form

本意只是做出对比VB调用API到底有多慢

在YY菌 @yjryym 的鼎力支持下，时隔7年的VB DX9游戏引擎项目重启更新！ beta 1.2 更新日志: 1、修复了老版本部分BUG，主要包括： 1.1 层级不正确，现已按绘制顺序。 1.2 图形绘制的坐标未偏移0.5，现已修正。 1.3音频短路径问题在Win10上失效，现已使用双引号进行修正。 2、增加了部分可选参数（初始化时可以指定整个场景缩放倍数、加载和绘制图片提供了默认颜色参数、CWPlayMusic最后一个参数默认恢复播放） 3、CWPaintPic系列函数增加很多扩展 4、文字功能增

我不管画线条还是写文字后面的背景始终都是黑色的？希望大佬帮帮我 d3d这个东西让人又爱又恨

一个结构体 Private Type table sz as string total As Long End Type 然后 Dim t(10) As table, ct(10) As table Dim p As LongPtr Dim sz() As Byte t(0).sz = "a001" t(0).total = 200 t(1).sz = "a002" t(1).total = 300 p = VarPtr(ct(0)) CopyMemory ByVal p, t(0), LenB(t(0)) * 10 Debug.Print StrConv(ct(0).sz, vbUnicode) Debug.Print StrConv(ct(1).sz, vbUnicode) 最后虽然ct(0)能输出去，但结尾一堆乱码，ct(1)也输不出来 为何?

能不能教教我啊，孩子不会... 怎样才能让他动呢

求大神帮帮忙！！！

怎么把自己写的vb脚本，只让别人使用功能，程序不让别人看a

为什么我的帖子会自己删除掉？

实现的功能为，在第三列选择”钱已到“这个菜单选项后，第四列的值就会从原来的数值变为0，代码如下 Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long i = Sheets("2021年收支情况表").UsedRange.Count If Target.Column = 3 And Target.Value = "钱已到" And Target.Row < i Then Target.Offset(0, 1) = "0" End Sub 遇到的报错时错误“13”，类型不匹配，显示第四行代码有问题，但是功能上已经能实现了，就是老是报错，不知道啥缘故，有大神嘛？

Dim xlapp11 As New Excel.Application Dim xlbook11 As Excel.Workbook Dim jianche_XlsSheet_1 As Excel.WorksheetSet xlapp11 = New Excel.Application With xlapp11.Workbooks.Open(yuan_wenjian & jiancha_name_1 & "评估数据模板.XLSX") Set xlbook11 = xlapp11.Workbooks.Open(pinggu_wenjian) Set jianche_XlsSheet_1 = xlbook11.Worksheets(1) jianche_hang_1 = jianche_XlsSheet_1.Range("A65536").End(xlUp).Row Sheets(1).Select ’**第二次这个地方报错** Range("A4", Cells(jianche_hang_1, 10)).Select Selection.Copy .Worksheets(1).Range("A2") Set jianche_

二维数组怎么做

如题，六边形A星算法该怎么在原有八方向A星算法上修改...

vb管理系统分享 需要的留下邮箱

虽然已经有人发过了，但昨天没有找到，所以再来问一下。 VB 的字符串的储存并不是和文件储存一致的的，所以如果用字符串指针和TextOutA不能输出，只能使用TextOutW输出，但现在需要使用TextOutA进行一个整合的输出，所以只能使用Asc逐字转换吗？但我记得好像有一个函数可以直接转换字符串，但我我忘了怎么转换的了😂

问一下大佬们seek #1,10是指向哪里了？是从第三个字段后开始还是重新开始，input（5,#1）是从程序段中选取长度为5的字符串，我应该没理解错了吧…

用VB绘制了一个凸轮轮廓，要使其绕一点进行旋转改如何实现，求大佬指点

最近再学习vb，看不懂这段代码的意思，希望大佬可以帮忙解释一下

For θ = 1 * pi / 180 To 360 * pi / 180 Step 0.001 X = a * Sinθ - l * Sinθ y = a * Cosθ - l * Cosθ picture1.pset(X, y), vbRed 画不出圆 X = a * Sinθ - l * Sin(θ + φ) y = a * Cosθ - l * Cos(θ + φ) 画出来是椭圆，可是φ都没有赋值

新人小白，因为要考二级VB，开始自学，安装了VB6.0简体中文版，win10系统，编一个小程序时一点运行就自动关闭程序了，除comand外，其他控件添加运行后还是会关闭程序，哪位大神帮帮忙，这是怎么回事啊

下图顶部是模拟的任务栏，点击即可启动相应程序，大家可以下载学习一下

我输出y=x^(-2)这个函数的图像， 自然x不能等于0， 所以我把x=0这点去掉了，但还是出错。 这是为什么？ 程序代码： Option Explicit Private Sub Command1_Click() Dim x As Single For x = -5 To 5 Step 0.01 If x <> 0 Then PSet (500 * x + 5000, -(500 * x ^ -2) + 5000), vbRed Next End Sub

vb6ext.olb无法注册 这个问题怎么解决呀》

VB6的form，已经设置了showintaskbar=true，但是却不能显示在任务栏里，为什么呢

谁会用vb写出这道题的代码？？#vb#

如题

在控件的 mousepointer 的 里面 并没有 那个手形状的 选择99 那个 可以自定义 不过我没手形状的 ico 麻烦大家给我发一个那个图标(370143500@qq.com)

看了下VB的函数里面只有到16进制的。。。。

将label的backcolor改为transparent，只会显示出窗体背景色，而不会显示后面的控件。而我需要把Label置为顶层也不会遮挡后面的控件。 遂在csdn找到了改Parent的方法：Me.Label1.Parent = Me.PictureBox1 代码确实有效，但我类比改成Me.Label1.Parent = Me.OvalShape1时出现了错误，提示：类型“OvalShape1”的值无法转换为“Control”。 OvalShape这个控件是来自微软官方的Visual Basic Power Packs，具体大家可以查一下。 所以我这个问题大家有解决办法吗，谢谢大佬们指点！

我的程序哪里有问题，为什么运行的时候总是出错

代码： Option Explicit Private Declare Function midiOutOpen Lib "winmm" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long Private Declare Function midiOutClose Lib "winmm" (ByVal hMidiOut As Long) As Long Private Declare Function midiOutShortMsg Lib "winmm" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim I As Integer, hMO As Long, YueQi As Long Private Sub Form_Activate() DoEvents If midiOutO

请详细一些，谢谢啦。新萌刚刚自修。

visual basic 6 有办法实现混音功能么？例如：

我想要在整点的时候把电脑声音 非静音---静音 , 如果是一键切换声音的那种不要

用管理员权限运行也不行。但是在win7下又运行完美，什么原因呢？

大佬们，我最近想用VB做一个类似于TranslucentTB的小程序，但是在VB下使用SetCompositionAttribute却总是返回FALSE，请问这是VB的某个Bug么？