标签: vb6

我想知道如何使用VB6制作屏幕锁屏.我试过最大化框架,但它仍然可以最小化.然后,我使框架非常大,以适应整个屏幕,使框架不可分割,但有人可以按Alt+ F4并关闭它.我还希望禁用任务管理器.那么有人可以帮助我吗？

如何使用 PlaySound() 播放 .wav 文件？我有 PlaySound(sound) 但我不断收到错误“参数不可选”。

另外，如何停止播放声音？

以下是C#的等价物 ReDim a(0 To i, 0 To 1)？

我试图通过Array.resize实现它...但它不起作用.

我正在尝试创建一个可以从PC安装android apk的VB应用程序.这样,当我想安装apk时,我更喜欢从浏览器中删除apk到应用程序.但我不知道该怎么做.我是VB6的新手.请帮我 !

我是VB6的新手并且传播.我的VB项目正在使用spread.在表单中,只要进行了扩展初始化,VB 6就会抛出一个编译错误,因为"By Ref Argument Type Mismatch"错误".是因为传播问题？我从已经存在的vb项目中删除了一些功能所以是因为我可能已经注释掉了一些功能.请点赞.提供你宝贵的建议.谢谢.我在Windows 7中运行应用程序

在VB6中,我可以使用以下代码用另一个字符串更改字符串的一部分.

例如:

Dim strTest As String
strTest = "abc"
Mid$(strTest, 2, 1) = "x"
' now strTest Value will be "axc"

上面有VB.Net等价吗？String.Replace将替换所有实例,但我不希望这样.

我的任务是将用 VB6 编写的应用程序的某些部分进行代码转换为 Java。现在，我有两个问题，第一是我从来没有做过这样的事情，所以我缺乏经验，第二是我以前从未使用过VB6。

我花了一些时间在谷歌上搜索并阅读不同的帖子，但我找不到任何有用的东西，所以这是我最后的机会。

你知道有什么工具、转换器可以帮助我解决这个问题吗？如果您以前做过类似的事情，您能给我一些关于如何处理这个问题的建议吗？

我试图将源代码从C++转换为vb6:

C++:

static double mdArray[3][3];
static double mdArray2[3][3];

for (i = 0; i < 3; i++)
for (j = 0; j < 3; j++)
{
  double sum = 0;

  for(k = 0; k < 3; k++)
  sum = sum + mdArray[k][i] * mdArray[k][k];

  mdArray2[i][j] = sum
} 

VB6:

dim mdArray(0 to 2, 0 to 2) as integer
dim mdArray2(0 to 2, 0 to 2) as integer

for i = 0 to 2
for j = 0 to 2

dim a …

我想在c#中编写VB6应用程序的这一部分.如何将long更改为Hex值？

Public Function longToHex(l As Long) As String
    longToHex = Hex(l)
    If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
    longToHex = Right(longToHex, 2) & Left(longToHex, 2)
End Function

这是一个简单的例子:

Dim si As Single
For si = 2.6 To 3.3 Step 0.1
  MsgBox si
Next si

我得到的数字如下(它们显示在MsgBox中,如下所示):

2.6
2.7
2.8
2.9
3
3.099999
3.199999
3.299999

所以,我想我会将数据类型从Single更改为Double以查看会发生什么.这次,没有.099999类型编号,但跳过了最后一项(迭代),如,缺失,并且不存在.以下是它们出现在MsgBox显示中的结果:

2.6
2.7
2.8
2.9
3
3.1
3.2

我猜测在最后一次迭代失踪的情况下,它会像.299999那样跟踪它,并且在它自己的脑海中永远不会达到.3,所以跳过它？但是,问题在于,如果发生这种情况,您将获得前一次迭代之一,以便能够发生这种情况,就像在单数据类型示例中所做的那样,如果您在此之后截断了所有内容,那么第一个小数,你会注意到3.0出现了两次.首先是"3"然后是"3.0"(如果我们忽略/截断"3.0"部分之后的数字9的5次出现 - "3.099999").

有趣的是,我使用单数据类型循环访问某些内容的另一个函数显示了上面我们的双数据类型示例所具有的确切问题,并且上面的单数据类型示例没有出现任何问题.因此,我在这里的真正原因是我的单数据类型循环丢失并在使用"步骤0.1"(递增0.1)时跳过最后一项.

使用"Step 0.1"和非整数数据类型有可靠的方法吗？如果没有,我们是否知道这些混乱事件发生的规则(在那里,混乱是可预测的)？叹

我以为你们都觉得这很有趣,我很期待明白这一点.搜索Google是没用的,因为我一进入"for"和"step"工作,就不断提出如何使用step运算符的示例,没有任何用处.

我有兴趣知道如何忍受这个,或者安全地做到这一点,和/或为什么它首先发生.我宁愿不使用Integers为这个特定的函数循环(然后使用另一个变量进行分割得到我的小数类型),但是如果我必须并且没有可靠的方法去做,否则,我会.但我把这个留给你们,我的程序员霸主.

我的例子发生在VB6中,但是,我也想知道在VB.NET中甚至在C#中是否会发生同样的混乱？我假设它发生在vba和vbscript中.关于此的任何信息也将是有趣和赞赏的.

先感谢您.

对主持人(没有必要阅读的问题):这不是一个重复的帖子,可能有其他人在其他语言(如C#)发布浮点问题,但解决这个(VB6)的问题不一定是与C#问题的解决方案相同.可能有一些解决方案是相同的,但也会有不同的解决方案,我无法从C#帖子中获得不同的解决方案/答案.事实证明,我感兴趣的解决方案是一个VB6特定的解决方案,在引用的C#帖子上找不到.我敦促mods在尝试关闭帖子之前勤奋,我看到帖子在很多场合不公平地关闭,并且在一天结束时,你进入了一个你没有增加任何价值的阶段,但是从Q中删除了大量的价值和这个网站的风格.总而言之,如果甚至有可能通过类似的帖子获得新的信息/答案或解决方案,那么最好避免关闭.特别是如果问题是针对不同的语言,即使概念相似或相同,也必然会有不同的语言特定的解决方案和解决方案.

当你键入(A,I,O,U,E)计数字符时我需要一个代码..我写了这个但它不起作用..请帮帮我..抱歉我的英语不好

n = Val(InputBox("enter a number"))
For i = 1 To Len(n)
      k = Mid(n, i, 1)
      k = LCase k
     Select Case k
          Case "a""i""o""u""e": t = t + 1

     End Select

Next
Print t