我在尝试从visual studio.net 2005使用oledb连接连接到sybase数据库时遇到此错误 The 'Sybase ASE OLE DB Provider' provider is not registered on the local machine. 您是否检查过机器上是否安装了驱动程序 检查的一种方法是尝试从运行ODBCAD32.exe的计算机创建DSN并创建新连接。它显示已安装的驱动程序。对于Sybase ASE 12.5，至少有2个OLEDB驱动程序 最新的：

我已经向一个面板动态添加了20个图片框，希望在使用鼠标滚轮时看到面板滚动。为了实现这一点，我尝试在panel控件上将autoscroll设置为true。这是代码。 对于i作为整数=1到20： Dim b As New PictureBox() b.Image = Nothing b.BorderStyle = BorderStyle.FixedSingle b.Text = i.ToString() b.Size =

这是visual basic中的编码 我使用access作为我的后端 我需要在vb.net中使用相同的函数 Am使用相同的4个命令按钮（移动第一、上一、下一和最后） Wat是我可以使用的代码？您有几个选项。在.Net世界中，我们已经从使用ADO记录集对象转向使用数据集或数据读取器 要读取单个行，可以签出SQLDataReader类： 或者，您可以将整个数据集加载到DataSet对象中，并在其Rows集合上迭代： 下面的链接显示了ADO和ADO.Net之间的区别，以供参考： 您应该接受问题的答案

你将如何解决这个问题？我想退回此收藏： Public Function GetShippingMethodsByCarrier(ByVal Carrier As ShippingCarrier) As List(of ?) Return Carrier.ShippingMethods.Select(Function(x) New With {.ID = x.ID, .Name = String.Format("{0} {1}", Carrier.Name, x.Description)

我在谷歌上找到了很多关于这个错误的其他参考资料，但我很难理解它们是如何应用到我正在做的事情上的 下面是我在编译时遇到的VBA错误：“函数或接口标记为受限，或者函数使用Visual Basic不支持的自动化类型。” 导致错误的VBA代码： 'ftp is also a com object created in code not posted here Dim f() As wooxter.FTPFile f = ftp.GetFileList 'Returns an object array o

我想在Vb.net中为矩阵运算重载运算符，但由于我是Vb.net新手，我不知道任何一个plz能在这方面帮我什么忙。你最好参考一下 你可以得到你想要的

这里有新的报道。使用VB.NET，我的应用程序使用它从postgresql数据库创建的数据表 这些数据表是在运行时定义的，而不是在设计时定义的，我也希望在运行时从这些数据表生成报告 我应该在设计时创建报表模板，然后在运行时将datatable绑定到它吗 非常感谢您的澄清 Joe假设数据表遵循DAO格式，并且报告将由您自己的代码创建，这是一种很好的方法 然而，通常情况下，最好至少了解一些关于数据表的知识，仅出于安全原因。注意恶意代码/数据库条目引起的错误

好的，我正在制作一个程序，它将从一个文本文件中读取，将每一行转换成一个数组。每打勾一行发送一行。这是2010年的Visual Basic。 我得到的最接近的结果是一次发送所有信息，我花了一整夜的时间来处理它，并且正在慢慢地销毁它。 理想情况下，我希望按钮1单击以从LocationTB处的文件填充阵列，然后启动计时器。计时器应在GapTB间隔的某个时间发送一条线路 Public Class Form1 Public TextLine As String Public MyFileName As S

我有一个网络文件夹，例如。http://www.myhost.com/software/ 如果我在IE中打开此地址，它将显示此文件夹中的所有文件。 我想下载所有文件，但我不想硬编码文件名。我知道我可以通过webclient获取文件。DownloadFiles@address，@filename。是否可以下载所有文件或至少从web文件夹中获取文件名？您至少可以下载相同的文件，IE显示请注意，此文件由您的web服务器提供-没有标准并自行解析文件的HTML，例如使用webclient.Download

首先，我希望我能正确地陈述我的问题。 我正在使用VB.NET创建一个数据库桌面应用程序。我希望我的UI与Microsoft Money具有相似性。这样，现在我想让我所有的文本框都这样： 平坦的 将没有边框，或者如果鼠标悬停在边框上，边框将被强调 就这些。 我认识到在TextButton中，我们有平面外观，所以我们可以调整所有按钮，使其表现为这样。但对于TextField，情况并非如此 有没有解决这个问题的简单方法 谢谢 Eko你可以试试这样的东西 Private Sub Form1_Load

注意：我尝试使用concat（）方法、join方法，甚至尝试 只插入文本（结果是可编辑的），但没有一个可以作为 我想要。我在想，如果子字符串方法将工作，但我只有 子字符串如何工作的基本概念。我希望字母“N”是 加载表单和用户输入时插入文本框 4数字（OrderNo2.text），应将其合并以便保存 当我点击“保存”按钮时，他们在一起 请帮帮我。谢谢 Private Sub btnAddOrder_单击（ByVal发送方作为System.Object，ByVal e 作为System.EventA

以下是一些在运行时执行代码的代码： Dim SourceCode As String = txtCode.Text Dim Dlls() As String = {"System.dll", "System.Core.dll", "System.Data.dll", "System.Windows.Forms.dll"} 'Any referenced dll's Dim Compiler As New VbCompiler(SourceCode, Dlls)

奇怪的问题： 我有一个VB.NETWindows窗体中的菜单，我的大学老师说，如果我能让菜单的所有下拉列表立即可见，他会让我从考试中解脱出来：D 这可能吗？怎么可能 我知道我可以.ShowDropDown（）一个条目，但是当我调用下一个条目时，第一个条目就隐藏了 提前谢谢 也许这有助于： CType（MenuStrip1.Items（0），ToolStripDropDownItem.DropDown.AutoClose=False CType（MenuStrip1.Items（1），ToolSt

我有一个VB.Net应用程序，它应该允许用户将CSV文件导入datagrid（它会这样做），然后将这些行更新到Oracle中的表中 这是我到目前为止所做的，但它似乎不起作用，也没有抛出一个错误 Private Sub Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Update.Click MsgBox("Saving...") Dim table As N

我试图发送格式化为HTML的邮件，但我收到一个错误，显示未声明olFormatHtml。如何申报 将olFormatHtml替换为Outlook.OlBodyFormat.olFormatHtml我正在使用Excel 2007中的VBA将工作簿附加到电子邮件并格式化该电子邮件的正文。我刚刚尝试了这个建议，但得到了一个运行时错误438：对象不支持这个属性或方法 相反，我将.bodyformat=2设置为将电子邮件文本显示为html，这样做很有效。例如 Set Outlook = CreateObj

我正在开发一个程序，允许用户拍摄全屏游戏的截图，如《使命召唤》、《战场3》等 然而，我的代码有两个问题 首先，我必须按两次快捷键，而不是像其他快捷键一样按一次。只有当下面的代码实际位于处理子模块中时，才会出现这种情况。如果按下快捷方式时，我只显示一个消息框，则每次都会起作用 第二，每当我拍摄屏幕截图时，它要么完全变黑，要么拍摄我的桌面，即使前台正在运行游戏 我环顾四周，似乎printscreen是通过vb.net获取游戏截图的唯一方法 我的代码如下。感谢您的帮助 Private Sub

我是VB.NET的新手，我正在尝试创建一个控制台应用程序，可以编写、保存、加载和编辑数据集 假设我有这样的东西： Imports System Module Module1 Public Structure EMPLOYEE Dim Firstname As String Dim Middlename As String Dim Lastname As String Dim ID As String End Str

我正在尝试实现2+个独立的OpenTK控件。在表单加载时，我希望它们都在加载时正确呈现和显示。在下图中，您将看到我的问题。一个渲染正确，但另一个未渲染 鼠标拖动前的GL屏幕截图 在出错控件上执行鼠标拖动操作将使其正确渲染 鼠标拖动后的GL屏幕截图 这是我的主窗体的代码。它创建并添加GLControl对象： 以下是扩展GLControl类的GLControlTask类的代码： 在我正在做的一个项目中，我遇到了一个类似的错误，问题是windows7 openTK的兼容性。 首先，在使用openTK时

我正在用VB做一个测验，所以我有带问题和复选框选项的问题表单。选中复选框选项后，为什么我的复选框选项文本更改为选中？如果我回到上一个问题 这是我的一个选项的代码： Private Sub Option1CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Option1CheckBox.CheckedChanged If Option1CheckBo

我在一周前编写的这个方法运行良好，但现在它下载了一个不完整的文件。原始文件接近10mb，但正在下载的文件是2k。我的代码基本上是这样的 Dim URL as string = "http://www.cqc.org.uk/sites/default/files/cqc_locations_export.csv" Dim path as string = "C:\temp" Dim webClient As New WebClient webClient.Headers.Add("

实现这一目标的专业方法是什么 谢谢。我已经无耻地从C#中删除了这个示例，并将其转换为VB.net Public Function GetNthIndex(s As String, t As Char, n As Integer) As Integer Dim count As Integer = 0 For i As Integer = 0 To s.Length - 1 If s(i) = t Then count += 1

我有一个带有自动滚动的面板，我需要更改鼠标滚动线的编号 我的意思是： （对不起，西班牙语中的鼠标属性） 但我会在我的程序中更改它，对于我的面板，obvius，而不是SO PS：例如，Winamp媒体播放器有一个选项 我到处都找不到信息，请帮忙 更新 我的滚动条是一个具有“AutoScroll”属性的面板 我的活动是： Private Sub Panel1_MouseScroll(sender As Object, e As MouseEventArgs) Handles Panel1.

我试图在Visual Basic 2010 WPF主窗口中上载不同路径的动画，选择组合框中列出的动画名称。 因此，在WPF中，我的主窗口包含一个组合框，在这里有两个名称，还有Window1和Window2，每个都有不同的PathAnimation。 我不知道程序运行时如何在主窗口中加载动画1或动画2。 我有点不知所措这里有一个简单的例子，我把它放在一起，它使用一个ViewBox作为一个容器。看看这对你有用吗 MainWindow.xmal 基本上，默认情况下，我的主窗口是空白的，里面只有一个组合

制作一个定时器，当它滴答作响时，激活你想要的任何代码。确保计时器代码的第一行是： timer.enabled = false 将计时器替换为您命名的计时器 然后在代码中使用此选项： WebBrowser1.Document.Window.DomWindow.execscript("checkPasswordConfirm();","JavaScript") timer.enabled = true Dim allelements As HtmlElementCollection = We

我正在使用以下代码检查我的健康状况是否超过允许的最大健康状况： Public Sub healthCheck() If Player.CurrentHealth > Player.MaxHealth Then MsgBox(Player.CurrentHealth & "&" & Player.MaxHealth) Player.CurrentHealth = Player.MaxHealth Msg

我有一个使用TableAdapter构建的自定义类列表 我想将它们添加到仅绑定某些列的DataGridView中 我尝试了以下代码来填充和绑定数据： lAllBookings = (From r As DataRow In BookingsTableAdapter1.GetDataWithItems().Rows Select New Booking With {.bookingID = r.Item("BookingID"), _

我已经注册了clickatell服务发送短信。他们给了我下面的vb.net代码，说他们不知道这是对还是错 Dim client As WebClient = New WebClient ' Add a user agent header in case the requested URI contains a query. client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .N

我必须创建一个应用程序，允许我从数组中的每个元素中减去数字1，并使用for…next语句将其显示在列表框中 这是我到目前为止所拥有的 Private intQuantities（）作为整数={45,67,2,5,90} Dim intnum2为整数=整数数量。长度 对于intCount As Integer=0到4 lstQuantilities.Items.Add（整数数量（整数计数）） intCount=intCount+1 在您的代码中有两件事很突出 首先，在将intQuantities变

下面的代码可以很好地打印图像和文本 现在的问题是，当一页已满时，如何自动将打印移动到下一页 也可以添加一个页码： Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click PrintPreviewDialog1.Document = PrintDocument1 PrintPreviewDialog1.ShowDialog()

我开始创建一个代码（在VB.NET中）来从文本中提取信息； 我在StackOverflow和搜索引擎中找不到的是在“”之间替换/删除文本的示例 可能是REPLACE或REGEX；我两个都试过了，但都想不出来； 我能得到一些帮助吗。。。。 非常感谢 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim SSSS = Replace(

我正在开发发票打印软件，如miracle，供我个人使用 首先，我为我的所有产品生成了二维码，现在我使用二维码扫描仪并将其链接到我的软件 现在我想知道的是，当我扫描任何产品的二维码时，它将能够在我的发票软件中输入所有值到它们所尊重的字段中 比如说, 我在每个QR中有四个值，即产品名称、产品价格、产品类别、折扣 现在，当我扫描此产品时，发票软件中的所有四个字段都将自动填充，如发票软件中的产品名称将进入产品名称字段，发票软件中的产品价格将进入产品价格字段等等 所以请帮帮我。谢谢。二维码没有字段。他们只

基本上，我正在尝试实现一个与ToUnicode相结合的WHU键盘钩子。。。 我知道这听起来很愚蠢。。但我确实成功了，使用了特殊字符，如：“##·%#！*”，等等。但我一直在玩弄代码，试图修复重音。我最终意识到它不起作用（在网上读了很多书之后） 所以我想现在就可以了，但是当我恢复到我的旧代码时，它不再工作了 因此，钩子本身正在工作（至少我正在获得向下键和向上键事件） 问题在于虚拟键->字符转换，即在该方法中： 'This is the callback method from the hook

我有两个DataGridView： DataGridView1: 这是使用以下代码从csv文件生成的： For Each line As String In System.IO.File.ReadAllLines("C:\path\test.csv") Form1.DataGriView1.Rows.Add(line.Split(";")) Next Dim MyConnection As System.Data.OleDb.OleDbConnection

我正在制作一个控制台应用程序，我想看看文件夹中有哪些文件 For Each foundFile As String In My.Computer.FileSystem.GetFiles("c:\users\zac\desktop\booked vehicle\requested\") Console.WriteLine(foundFile) Next 使用此代码后，发现文件夹是空的，我需要一个If语句，说的是 如果foundfile没有文件，则 告诉

我有以下代码，通过调试，问题从While循环开始。我试图从两个表中检索信息，并将其插入到创建的表中。信息没有插入到表中，我得到的是空行 Imports System.Data.OleDb Public Class RouteToCruise Private Sub RouteToCruise_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Route_Btn

我正在制作一个投币式的网吧软件。我想让我的程序在每次插入硬币时都能检测到来自硬币检测器的5伏信号。然而，我一直在谷歌搜索，试图找到这样做的示例代码，但没有用。Pinchhange事件不起作用，因为传输信号的导线始终连接到串行端口引脚，即使没有在投币槽中插入硬币，Pinchhange事件也始终发生。我只想在每次插入硬币时检测硬币检测器发送到串行端口的5伏信号。请帮我做这个 谢谢你，并致以最良好的问候。我有几个项目与此项目相似。我建议使用.NET库读取串行端口。在VB.NET中，它类似于： Dim

我正在制作一个简单的游戏（主要部分）由一个面板组成，里面有32个图片框，每个图片框都有背景图片。你点击一个“瓷砖”，它会翻转显示一张图片。我的问题是，当窗体加载时，我可以看到它正在绘图。我看到了面板。。然后清空图片框，最后用背景图片填充图片框 我已将表单的DoubleBuffer设置为True，并添加了以下内容： Private Sub UseDoubleBuffer() Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or Control

作为学校的最后一个项目，我正在做一个井字游戏。基本前提是在按钮上单击按钮文本进入“X”并禁用按钮，然后随机选择按钮周围的按钮，使其变为“O”。（我正在尝试制作一个可以玩的假AI） 好吧，问题是；即使该按钮在单击时被禁用，当您单击其附近的另一个按钮时，另一个按钮上的文本也可以被禁用。例如，如果您按下按钮A1，机器人会在B2上放置一个“O”，然后按下A2，即使A1被禁用，但机器人会将A1更改为“O” 那么，您如何不允许代码更改文本呢？ 代码如下：在您的代码中有一堆类似的if语句块，在这些语句块中，

我有一个很长的数字是这样的： numb as long=011212201220200112202001200101121220200120010112200101120112122.... 它将超过4000000000位。我的问题是在数字中找到任何数字。如果它是整数，我将转换为字符串并执行以下操作： numb(200) 但是他的头发很长。你知道如何找到它吗？与整数一样，你也可以将长转换成字符串，以获得第n个元素 Dim numb As Long = 9876543210 Dim targe

我正在向DataGridView添加一个ComboBoxColumn，并使用BindingSources将其链接到一个单独的相关部门表 一个新行显示第一个列出的部门（帐户），但默认情况下未选择它，导致错误： 无法将值NULL插入到表的列“DeptID”中 ‘StaffDB.dbo.Staff’；列不允许空值。插入失败 根据回答中的建议，我使用以下设置默认值： comboCol.DefaultCellStyle.NullValue = _bsDept(0)("Department")

我目前有一个应用程序，可以ping大约50个设备，并显示一个“向上”或“向下”箭头，这取决于它是否在线。问题是，它一次只能发出一个ping，这需要一段时间。我想看看是否有一种方法可以同时ping所有这些对象，并在它们出现时显示结果 当前方法的示例： If My.Computer.Network.Ping(RouterBox.Text, 2000) Then 'Online If GetPingMs(RouterBox.Text) &

我有一个包含2个子报告的主报告（尝试包含2个子报告）。目前我拥有的是这个 在按钮上单击“查询数据”并填充主报告-报告1 一旦填充了这些数据，我就添加了一个AddHandler来填充第一个子报告的数据-这非常有效！ -现在我正试图以同样的方式查询第二个子报表的数据，但它没有显示我的任何数据 代码： '正在查询未包含的数据和其他代码 Dim rds As ReportDataSource = New ReportDataSource("DataSet1", ds.Tables("Data

我有一个网格，第一列是每行的一个按钮，带有Excluir（“Delete”） 当我点击按钮时，我需要恢复按钮操作以及它被点击的行，我正在尝试，但不起作用 Private Sub dgAdm_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) IF e.ColumnIndex = dgAdm.Columns["Delete"].Index AndAlso e.RowIndex &

我有计算坦克上多个点的应力的代码，然后将这些应力绘制在图表上。我将毫无问题地查看图表，突然，图表显示红色X，我需要关闭程序再次查看压力结果 我知道我的代码中没有bug。没有抛出异常。有什么建议吗 Public Sub Graph(Curves) 'Creates the Graphs crtStressData.Series.Clear() crtStressData.Legends.Clear() 'Dimension arrays for data poin

使用VB.Net 2012和Crystal报表 页面底部未打印节页脚 我已将页面大小设置为信封大小，以便在信封上打印 我知道我的设置必须正确 我根据以前在vb.NET2003中制作的crystal报告进行了更新，该报告运行良好 我量了一下信封，信封上不应该有印刷品。 该节未被抑制或包含空白信息 需要进入“打印选项”并检查“无打印机”和“取消打印纸张大小” 您应该检查并重试。我们总是很乐意帮助和支持新的编码人员，但您需要首先帮助自己。：-）如果您有问题，请发布您尝试过的内容，并清楚地解释哪些内容不

我在猜一个词。 在第一种形式中，我有两个用于球员姓名的文本框： 所以接下来我想在表格上显示球员1的名字，他写的名字 谢谢你的帮助！：我做到了：D 我用以下内容创建了一个类： 公共共享的另存名称为String=Nothing 在文本框1中，我使用了以下代码： Class1.savedname=TextBox1.Text 在加载我想要显示的名称的表单时，我编码： Label1.Text=Class1.savedname 谢谢 到目前为止你都试了些什么。你的代码在哪里？像这样做，以后在你想使用的地

我有一个变量队列，在其中我从流中写入信息。变量按如下方式启动： Public Shared Queue As List(Of String) = New List(Of String)(1024) 读取流的代码是 Public Shared Sub ReadStreamForever(ByVal stream As Stream) Dim encoder = New UTF8Encoding() Dim buffer = New Byte(2047) {} Dim co

我有一个vb.net表单，其中添加了一个GroupBox，包括10个文本框。我想在加载时禁用9个文本框，应该启用一个文本框。通常，您需要显示您尝试过的内容。下次请这样做 创建要禁用的文本框数组。然后循环到数组，将每个框的enabled属性设置为False Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim boxes = {TextBox1, TextBox2} For

我有两个csv文件，其中包含10辆车和15名司机的日历。目标是加入两个日历 Car.csv看起来像这样 Car 1;A Car 2;A Car 3;I Car 4;A Car 5;A Car 6;I Car 7;A Car 8;A Car 9;Y Car 10;A Driver 1;V Driver 2;V Driver 3;Y Driver 4;A Driver 5;A Driver 6;V Driver 7;A Driver 8;I Driver 9;I Driver 10;V Drive

我设法让我的应用程序捕获任何键以将其用作热键，但当我按下该键时，热键功能被激活。这就是我到目前为止所做的： Private Sub tmrFunc_Tick(sender As Object, e As EventArgs) Handles tmrFunc.Tick 'Function End Sub Private Sub tmrKey_Tick(sender As Object, e As EventArgs) Handles tmrKey.Tick 'Uses the hotke