如何更改Chrome、Firefox和Iexplorer主页地址
您好,我需要一个 exe,我如何使用 vb.net 或 vb6.0 更改 chrome、firefox 和 iexplorer 主页地址我想更改主页并且我想锁定你能帮我吗? 解决方案 没有. 为什么不呢? 因为只有垃圾邮件发送者和白痴才会这样做. 如果你对我的浏览器这样做,你会被极端偏见删除. 特别是试图将它们“锁定"在那里 - 为此(如果可能的话,它不是)我会亲自追捕你......在我从上次备份中恢复之后.
152 2022-07-19
编程技术问答社区
在vb6中如何将窗体从背景带到前端
你好, 我在 VB6 中有一个 form1 作为 Me.Visible=False 在后台运行.它在 HID 模式下获得键盘输入,当在 Text_change I 上进行时,它会显示另一个带有谢谢消息的 form2. 一切正常,但 Form2 已最小化,我希望将其弹出. 我用谷歌搜索它有助于使用 Me.SetFocus 我在两种表单上都使用过它,但不行.我再次尝试了 Form1.visible=True 它仍然是最小化的. 请让我知道我还能尝试什么. 谢谢 解决方案 我可以通过 实现 Private Sub Form_Load() Dim lR As Long lR = SetTopMostWindow(Form2.hwnd, True) End Sub 并添加了一个模块 Option Explicit Public Const SWP_NOMOVE = 2 Public Const SWP_NOSIZE = 1
82 2022-07-19
编程技术问答社区
vb6中的数据环境不是每次我运行程序都能工作!
我想制作一份每日收入支出账户的报告.我为此报告使用数据环境,并将日期字段设置为组字段.问题是每次我运行程序时,数据有时会出现,有时会显示为空白.我不明白为什么会发生这种情况,这是什么原因? Private Sub CmdOk_Click() Dim RsRojmelIncome As New ADODB.Recordset Dim RsRojmelExp As New ADODB.Recordset Dim RsTempRojmel As New ADODB.Recordset cn.Execute "delete from TempRojmel" RsRojmelIncome.Open " select * from Rojmel where Date1 BETWEEN #" & Format(DTPicker1.Value, "MM/DD/yyyy") & "# AND #" & Format(DTPicker2.Value, "MM/DD/YYYY") & "# And
154 2022-07-19
编程技术问答社区
如何在vb6中对现有记录集运行查询
你好, 我有一个列名为“Y/N"、“Value1"、“Value2"的表“TableA".此数据在 excel 文件中. 每个名称都有多个条目. 1.想在此表中添加一列,并在 Y/N 列的基础上计算值并填充新列.意思是如果 Y/N 列有 Y 则将 value1 放入 value3 列如果它是 N 然后将 value2 放入 value 3 列 2.现在想分组名称并想计算value3的总和 3. 想对那个 Sum 值做一些计算. 请问如何在 VBA 中解决这个问题. 我的代码如下 Private Sub CalcFinalLoanAmount()On 错误 GoTo ErrorHandlerDim xlFile As Excel.ApplicationDim xlsWB1 As 对象Dim xlsWS1 As 对象Dim rs As ADODB.Recordset设置 rs = 新建 ADODB.Recordset设置 xlFile = 新建 Excel.App
302 2022-07-19
编程技术问答社区
通过筛选数据库中的数据添加列表框
List1.ClearIf Combo1.Text = "有氧运动"那么rs.MoveFirstDo While Not rs.EOFIf rs.Fields("time") = Combo4.Text And rs.Fields("expdate") >日期 然后n = n + 1List1.AddItem n &" " &rs.Fields("id") &" " &rs.Fields("name")结束 如果rs.MoveNext循环结束 如果 我的 combo4 列表就像 sat 1 , sat 2 ... 我试过f rs.Fields("time") = " sat 1" And rs.Fields("expdate") > Date Then 但我无法获得列表框..当我尝试使用相同代码的不同字段时,它工作正常..我不知道这个有什么问题.任何人都可以帮助我. 解决方案 SA - 真的吗?每个帖子都在抨击vb6??? 我使用 vb6,自从它发布以来,实际上从 v
90 2022-07-19
编程技术问答社区
visual basic中的串口通信问题
大家好!请帮助我解决此代码. 情况是这样的,我在串行端口上以这种格式获取一个字符串:[00200][00210][00215],括号内的数字是以克为单位的重量,我必须将其转换为整数 &将其与用户定义的值进行比较. 我已经编写了一个代码来完成这一切,但问题是当我使用“step into"调试它时代码运行良好,但在我运行它时没有给出任何结果.这是代码(很抱歉转储完整代码,但我必须提供我在做什么的完整信息). 系统流程图是这样的: 1. RFID_validation-> 2. switch_between_users-> 3.get_user_values-> 4. open_container_1-> 5.wait_till_the_current_weight_is_equal_to_user_input 6.关闭容器1 7.打开容器5 8. 稍等(10秒) 9.关闭容器5 10. 对其他三个容器从第 4 步开始重复. 11. 显示流程完成通知.
150 2022-07-19
编程技术问答社区
如何部署SQLOLEDB。在windows 2008 R2 64位上为1
在我的 VB6 应用程序中,我使用提供程序 SQLOLEDB.1 连接到 SQL Server 2008 R2. 这在 Windows 2008 R2 64 位上不支持.如何部署“SQLOLEDB.1"Windows 2008 R2 64 位上的提供程序. 解决方案 我在 SQL 2008 服务器上使用 vb6,所有旧代码都可以正常工作,除了需要更改连接字符串,这应该为您指明正确的方向.... http://www.connectionstrings.com/sql-server-2008[^]
752 2022-07-19
编程技术问答社区
如何限制控制权走向它#39;s单击事件?
大家好, 在我的应用程序中,我正在执行 2 个任务: [1]在cmbrno_click()上显示所有值 [2]在cmbfulnm_lostfocus()上显示所有值 cmbrno 样式是 2 下拉列表. Private Sub CmbFulNM_LostFocus() RES.Open "student_record_database",CON,adOpenDynamic,adLockOptimistic,adCmdTable For i = 0 To RES.RecordCount - 1 CmbRNO.Text = RES!ROLLNO // at this line control goes to the cmbrno_click event which is having same part of coding and executes that also. TxtFNM.Tex
146 2022-07-19
编程技术问答社区
vb6批量插入数据库
VB6 : 有没有办法将批量 ResultSet 行插入数据库,而不是使用循环. 解决方案 我从你的问题中了解到的是,你想在数据库的某个表中构建插入数据.如果这是您想要的,那么是的,您可以这样做.您可以构建一个包含要插入的数据并将其传递给存储过程的 xml.在该存储过程中,您可以使用 XML 支持的插入一次性插入行.希望这可以解决您的问题.
578 2022-07-19
编程技术问答社区
嗨…我想从下午4点到6点停止发送电子邮件…在vb中
请帮助我...我的代码在下面......... Private Sub Form_Load()time1.Text = "1100"time2.Text = "1700"结束 子私有 子 Timer2_Timer()lblTime.Caption = "当前时间:" &格式(日期时间.现在,"HH:MM:ss")AM = time1.Text &"00"PM = time2.Text &"00"lblactualtime.Caption = Format(DateTime.Now, "HH:MM:ss")If AM = Format(DateTime.Now, "HHMMss") 然后发送电子邮件否则If PM = Format(DateTime.Now, "HHMMss") 然后发送电子邮件结束 如果结束 如果End Sub 解决方案 试试这个 Dim sTime As DateTime = DateTime.Parse("4:00:00 PM") '开始Dim eTime
128 2022-07-19
编程技术问答社区
如何在datareport中隐藏文本框?
你好, 谁能告诉我如何在VB6的数据报告中隐藏文本框? 非常感谢. 解决方案 接触VB 6 快5-6 年了,不知道这可能吗?但是您可以将空字符串传递给要隐藏的相应字段.在 VB 6 中使用 IIF 函数. 例如,您可以仅根据条件显示文本框.否则会显示空白字符串(表示隐藏). Result = IIf(Mark > 75, "DISTINCTION", "")
210 2022-07-19
编程技术问答社区
通过ODBC连接使用注册表项
你好, 谁能告诉我哪一个在连接数据库时更有利.使用 ODBC 连接或使用系统注册表中的连接字符串. 另外,从 VB6 代码连接注册表是否需要任何特殊的管理权限? 提前谢谢, Sreeram Rengarajan 解决方案 你还是不明白 ODBC 是什么.ODBC 只是一种用于访问数据库的接口.这些接口中的每一个都需要特定的连接字符串,其中包含有关用户和数据库位置的信息. 您可以在系统注册表中放置几种不同接口(ODBC、OLEDB等)的连接字符串来使用. 现在是 2010 年,您应该改用 OLEDB,除非您要连接的数据库仅支持 ODBC. 根据注册表位置,您可能需要读取注册表的权限.但是,如果这是一个 .NET 应用程序,您应该将连接字符串放在 .config 文件中.
276 2022-07-19
编程技术问答社区
记录集。movelast不工作
你好,谁能帮我解决我的问题.我在 vb6 中使用 adodb 创建了一个程序.问题是当我使用 .movelast 语句移动光标时它不起作用. 例如我在自动编号中有一个字段 orno 1 2 . . . 44 当我使用 movelast 时,它最多只能读取 39 到最后一个数字是 39 但它应该是 44 谢谢.. 解决方案 问题是并不是所有的数据库驱动都支持完整的ado方法集.对于某些人来说,如果首先调用 MoveLast,RecordCount 只会提供准确的信息.如您所见,此方法无法正常工作.这意味着您必须即兴发挥才能获得兼容的结果.您可以实现自己的方法,只需执行以下操作: do until rs.Eof rs.MoveNext loop 这个链接有一些很好的信息: http://flylib.com/books/en/3.405.1.32/1/[
120 2022-07-19
编程技术问答社区
装载和卸载组件
我有一个 win32 应用程序,它将 .net 程序集加载到一个窗口中,允许用户使用它,然后在完成后关闭它. 问题是当用户打开 .net 部分时我的应用程序从大约 50mb 变为 200mb 并且即使在用户关闭托管窗口后仍停留在那里. 我尝试通过 .net 对象处理并手动进行垃圾收集,但这收效甚微.我尝试通过 ApplicationDomain 加载 dll,然后卸载它,但这似乎更糟.我之前从未使用过 AppDomains,有点困惑. 这是加载代码 AppDomainSetup setup = AppDomain.CurrentDomain.SetupInformation;snapInDomain = AppDomain.CreateDomain(snapInName, null, setup);程序集 a = snapInDomain.Load(snapInAssembly); 这是卸载代码 AppDomain.Unload(snapInDomain);
126 2022-07-19
编程技术问答社区
帮助将.rpt导出为pdf
你好, 我有一个包含许多表的访问数据库,并且我有引用此访问数据库的 Crystal Report 文件.我想将这些 rpt 文件导出为 .pdf.如果报告文件从访问数据库中的单个表中获取数据,我就可以进行转换.假设一份报告由多个表格组成,我无法做到.我收到一条错误消息,上面写着“无法加载数据库".. 我正在使用 Craxdrt 进行导出. 可以的话请帮忙 看在老天的份上,不要再抱怨 VB6 是遗留系统以及所有这些 感谢您的帮助 解决方案 您的代码中的连接详细信息似乎有误,因此请更改.还要在您的报告中验证数据库. 使用 Visual Studio 2008 为 Crystal Report 2008 创建查看器[^] 加载数据库信息失败[^]
878 2022-07-19
编程技术问答社区
VB6中带LvButtons的泰语
大家好, 我们可以在 VB6 的 LVButtons 上显示泰语吗? 我想在 LVButtons 上显示泰语有什么解决办法吗. 请它的紧急. 提前致谢 解决方案 泰语脚本 (http://en.wikipedia.org/wiki/Thai_script[^]) 是如此美丽和实用!永远不要使用 VB6 破坏它!使用更先进的技术——它们大多使用 Unicode;并且泰语非常流行,默认情况下几乎所有现代系统都支持.在最坏的情况下,您始终可以安装额外的字体. 另见:http://unicode.org/[^]. 万不得已:使用第三方组件的 VB6 支持 Unicode.你可以谷歌一探究竟. —SA
290 2022-07-19
编程技术问答社区
在vb6中使用工作模板
尊敬的各位 我正在为扫描中心(医疗)开发小包的项目.我的客户用来为每一位患者创建当天的扫描报告.我已经完成了这个项目的一半.我已经完成了患者登记,访问发布等......现在我想做一个系统来准备报告.我得到了所有测试列表 ECG、ECho、Abdemon 测试等的 word 格式的报告模板.现在我需要在前端调用相关的 word 模板文件和用户类型的结果,然后将数据发布到数据库中. 注意:我正在使用-VB6,Access2003,Crystal Report4.5. 我已经尝试使用 RichTextbox 导入 RTF 文件.但这还不够.我的模板文件有表格、列和对齐方式.Richtextbox 没有显示正确的对齐方式. 如果有人对我的上述问题有解决方案,我会有所帮助. 急需解决方案... 在此先感谢 解决方案 您将无法以这种方式使用 Word 文档进行 RTF 编辑.使用 RTF 允许用户输入数据并尝试将其保存在数据库中是不愉快的. 鉴于您当前的技术,您的解
126 2022-07-19
编程技术问答社区
如何使用sql查询在listview中查看起始日期和结束日期
如何使用 sql 查询在 listview 中查看日期和日期 解决方案 从这里开始: http://www.daniweb.com/软件开发/visual-basic-4-5-6/threads/250069/vb6-ado-listview[^] http://www.vb6.us/tutorials/using-ado-and-listview-control-vb6[^] http://en.allexperts.com/q/Visual-Basic-1048/2008/2/list-view-control.htm[^] 使用TreeView、ListView和ADO显示数据库文件[
118 2022-07-19
编程技术问答社区
vb6升级到64位
目前在 32 位操作系统中使用 vb6 32 位.你能帮我如何在 64 位环境中工作吗 解决方案 你不能,VB6 已死去;升级到 VB.NET.如果您无法升级,那么您将陷入不再支持的旧技术. 您可以在 64 位环境中运行 32 位应用程序.但是,根据具体情况,您可能没有必要的驱动程序、库等来运行程序. VB6 很久以前就结束了.与其将 VB6 程序转换为在 64 位环境下工作,我强烈建议您继续使用 VB.NET(甚至 C#). 如果您需要,互联网上有可用的转换工具.看看这个博客:http://visualbasic.about.com/b/2011/01/24/converting-vb6-to-vb-net.htm[^]
1200 2022-07-19
编程技术问答社区
vb6使用readfile读取usb端口时的WaitForSingleObject
您好,下面的代码在 vb6 的 Public Sub Main() 中.它应该坐下来继续从 USB 设备读取.它确实“工作",但它非常不可靠.我有一个 USB 分析器,它显示数据正在返回,但没有进入 WAIT_OBJECT_O 案例. 我尝试过将各种超时设置为 200 毫秒似乎效果最好. 有没有更好的方法来编写它,以便它始终获取 USB 数据并对其进行处理? Do DoEventsIf Form1.Terminate = False ThenIf MyDeviceDetected = True 那么RecBuffer(4) = 0RecBuffer(5) = 0结果 = 读取文件 _(隐藏手柄,_RecBuffer(0), _CLng(Capabilities.InputReportByteLength), _rdNum, _HID重叠)errorNum = Err.LastDllErrorDebug.Print "err=" &Err.LastDllErrorResu
330 2022-07-19
编程技术问答社区