Articles of vb6

现代版的WinDiff?

VB6附带了WinDiff 。 是否有免费的现代版本的WinDiff可以忽略大小写?

如何使用vba更改扩展文件属性

使用这个链接,我可以用vba编写一个读取扩展文件属性的程序。 现在,我想创build一个可以编辑扩展文件属性的程序 – 特别是属性22,文件的“主题”。 所以,给定一个文件path,你怎么能编辑与该文件关联的主题?

如何使用VB6或BAT / CMD列出连接到我的WiFinetworking的设备?

我正在制作一个程序,列出所有连接到我的Wi-Finetworking的设备,以便我可以查看是否有其他人连接。 我已经find了一个CMD – networking视图的代码,但它只列出了连接到我的Wi-Fi,但不是移动设备的计算机。 是否有任何其他命令列出使用CMD连接到我的Wi-Fi的移动设备。

如何从VB 6应用程序中确定Windows版本?

我想检测从95到Win 7的任何Windows版本。 我也想显示,如果操作系统是32位或64位。 而已; 这很简单。 :)我可以使用什么代码在VB 6应用程序中执行此操作?

如果部署PC具有不同的字体DPI,如何计算适当的字体大小?

我试图找出目标Windows机器上的字体DPI大小,并修改我们的应用程序的字体,使其看起来像目标机器具有与开发机器相同的dpi的相同的大小。 (所以更大的目标DPI将意味着我们会使字体小于开发时间)。 我想知道下面的解决scheme是否有问题,特别是LOGPIXELSX = 88是否正确。 背景 我调整窗体上的所有控件和字体的大小,以匹配当前的Windows屏幕分辨率。 但是,如果有人将Font DPI设置得更高,我们需要对其进行说明,并使字体变小 (因此屏幕上显示的尺寸最终会变大)。 我们的字体已经很大(尤其是因为我们调整它们的屏幕水平)。 来自较高DPI的额外尺寸使得文字太大。 我的解决scheme到目前为止从我可以告诉,如果我们使用GetDeviceCaps如下,然后得到CurrentFontDPI并执行此操作:(忽略由于新的屏幕分辨率的字体大小修改): NewFontSize = CurrentFontSize *(DevelopmentDPI / CurrentFontDPI) Function CurrentFontDPI Dim hwnd, hDC, logPix, r As Long Dim LOGPIXELSX=88 hwnd = GetDesktopWindow() hDC = GetDC(hwnd) logPix = GetDeviceCaps(hDC,LOGPIXELSX ) r = ReleaseDC(hwnd, hDC) CurrentFontDPI= logPix 结束function 仅供参考,上面的代码是“一个相关的SO问题”[1]中的一个较大的例程的一部分,我遗漏了其余的代码b / c似乎至less有一个错误(它有NewFont = OldFont *(NewDPI- OldDPI),如果DPI没有改变,它会给你零高度字体大小) [1]: […]

CommonAppData在vb6中

基本上和这个问题一样 ,但是对于VB6 。 客户的应用程序“AppName”的configuration文件存储在CommonAppData中。 在Windows XP下是C:\ Documents and Settings \ All Users \ Application Data \ AppName 在Windows Vista中是C:\ ProgramData \ AppName 如何获得正确的文件名与VB6? ? 额外的笔记 ,我喜欢使用API​​调用,而不是添加到shell32.dll的引用

在64位机器上的VB6应用程序

我正在维护一个旧的VB6应用程序,它使用了一些Sheridan 3D控件(SSPanel和SSTab,可在threed32.ocx和tabctl32.ocx中find)。 这个应用程序能在64位机器上工作吗(我想32位的32是来自位数的?) 如果没有,我能做些什么来使它工作?

VB 6应用程序如何确定它是否在Windows 10上运行?

我想我的VB 6应用程序检测并显示运行的Windows版本。 我从另一个堆栈溢出问题试过这个代码 ,但它不适合我。 它在旧版本的Windows(如Windows XP和Vista)上显示正确的版本号,但无法检测到Windows 10.出于某种原因,它说Windows 10是Windows 8。 我以为Windows 10会有一个主要版本的“10”和次要版本的“0”, 这个Windows版本号的图表证实了它。 那么,为什么GetVersionEx函数从来没有真正返回版本10.0? 我怎样才能准确区分Windows 8,Windows 8.1和Windows 10?

VB6应用程序不再在Vista电脑上打开

我有一个VB6应用程序,以前在Vista计算机上完美的工作作为一个计划任务 ,但它不会再打开在同一台机器上。 该应用程序生成一个指定的文件夹中的导出文件,在屏幕上没有直接输出。 我没有错误,没有遗漏的引用,只是没有任何东西 。 机器运行的是Vista Business 32位,使用单个pipe理员帐户禁用了UAC,并且自动更新已closures。 该应用程序驻留在一个不受保护的文件夹中,导出文件放在桌面上的一个文件夹中。 客户发誓,自从我安装这个应用程序以来,他们对这台计算机进行的唯一修改就是安装诺顿防病毒软件,这个软件从来没有引起任何问题。 除了正常的VB6引用外,该应用还引用了Microsoft Scripting Runtime(scrrun.dll)和Microsoft DAO 3.6(dao360.dll)。 这两个文件都存在并在目标机器上注册,以及所有其他的VB6依赖项。 我在Sub Main()的开头添加了MsgBox语句,只是为了查看是否正在执行任何内容,而不是。 禁用诺顿没有取得任何结果,也没有重新安装VB6运行时排除任何损坏的库。 我从来没有从我的应用程序得到任何消息,错误或其他。 我从来没有像这样的问题,我完全难住。 还有什么可能导致这个? 编辑 – 应用程序不会运行,即使我手动运行,所以关于它的部分是一个计划任务是无关我的问题,抱歉包括它。 用户具有完整的pipe理员凭据,当时在初始testing中不需要兼容模式,在这台机器上完成了我的问题。 对于微笑,我尝试了XP和2000的兼容模式,仍然没有。

检索当前用户打印机的图标

我试图模拟MS Office打印对话框的打印机selectcombobox。 下拉列表中包含左侧有大型打印机图标的打印机名称。 在Vista传真打印机有一个很好的传真图标,共享打印机标记,默认打印机了。 最好的办法是能够查看更多的打印机信息,就像浏览器查看控制面板 – >打印机。 任何想法从哪里开始? SHGetFileInfo取得了适中的成功,但您的意见是最受欢迎的。 [操作系统:窗口,代码语言:任何]