我需要在 VB .NET 中的 ListBox 组件上显示一个列表。

// params is a string representing a path, empty means root folder
params.itemsPath = ""

// resp is a response object, here it is a String[]
resp = myAPI.browseTags(params)

Dim listSize As Integer
listSize = resp.itemsList.GetLength

Dim i As Integer
For i = 0 To listSize
    ListBox1.Items.Add(resp.itemsList(i).itemName)
Next

我不熟悉 VB .NET，这应该是一个非常简单的问题，但我需要帮助！

代码“resp.itemsList.GetLength”带有蓝色下划线，并且有一个工具提示，内容如下：

“未为‘公共函数 GetLength(dimension As Integer) As Integer’的参数‘dimension’指定参数”。

我在这里做错了什么？提前致谢！

我有一个需要转换为 csv 文件的文本文件。我的计划是：

• 逐行解析文件
• 搜索并用空格替换双引号内的逗号
• 然后删除所有双引号
• 将行附加到新的 csv 文件

问题：我需要一个函数来识别双引号内的逗号并替换它。

这是一个示例行：

“布朗夫人”、“博蒙特街 4611 号”、“勇士跑”、“PA”

我无法弄清楚这里的问题是什么。我从头开始项目，去调试，并收到错误：

System.InvalidOperationException 未处理 Message=创建表单时出错。有关详细信息，请参阅 Exception.InnerException。错误是：未将对象引用设置为对象的实例。

我不明白为什么在自动生成的文件中会发生此错误。这是完整的代码：

    '------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.269
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My

    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
    ' or if you encounter build errors in this file, go to the Project Designer
    ' …

如果我使用不正确的术语或听起来像一个完整的菜鸟,请原谅我.

在类库中调用sub时,我想传递的不是实例化的表单,而只是对表示表单的类的引用.然后我想从类库函数中实例化表单.这可能吗？

类似于以下内容:

在主要应用中:

ClassLib.MyClass.DisplayForm(GetType(Form1))

然后,在类库中:

Public Class MyClass

    Public Shared Sub DisplayForm(WhichFormClass As Type)
        Dim MyForm as Form = WhichFormClass.CreateObject() 'Getting imaginitive
        MyForm.ShowDialog()
    End Sub

End Class

希望我的例子传达了我想要完成的事情.如果你认为我的做法是假的,我会接受其他策略.

我试图使用WebBrowser控件来启动弹出窗口的新窗体,而不是在IE中打开它.我试图使用AxWebBrowser来获取与NewWindow3事件一起工作的弹出窗口e.ppDisp = AxWebBrowser.Application,但是AxWebBrowser有许多限制.因此,我试图扩展普通的WebBrowser以包含像AxWebBrowser一样的NewWindow3事件但遇到问题.随着e.ppDisp = AxWebBrowser.Application我得到的错误:"InvalidVariant检测",其次是"指定的OLE变量无效"如果我继续.

注意:这是我第一次扩展课程,所以我可能会看到一些简单的东西.如果我尝试在新窗口中导航到新URL,我会从站点获取java脚本错误.

我已根据评论更新了代码库.已经删除了ExtendedWebBrowser类,以获得更小更好的版本.这是新代码:

从主窗体和一个非常相似的BrowserPopup表单 -

Protected Overrides Sub OnLoad(ByVal e As EventArgs)
    MyBase.OnLoad(e)
    nativeBrowser = DirectCast(ExtendedWebBrowser1.ActiveXInstance, SHDocVw.WebBrowser)
    AddHandler nativeBrowser.NewWindow3, AddressOf nativeBrowser_NewWindow3
    AddHandler nativeBrowser.WindowClosing, AddressOf nativeBrowser_WindowClosing
End Sub

Private Sub nativeBrowser_NewWindow3(ByRef ppDisp As Object, ByRef Cancel As Boolean, ByVal dwflags As UInteger, ByVal bStrUrlContext As String, ByVal bstrUrl As String)
    Dim popup = New BrowserPopup()
    popup.Show(Me)
    popup.browserPop.DocumentText = bStrUrlContext
    ppDisp = popup.browserPop.ActiveXInstance
End Sub

Private Sub nativeBrowser_WindowClosing(ByVal IsChildWindow As Boolean, ByRef Cancel As …

我试图在子查询中为变量设置一个值，但它不起作用。

这是我的查询：

declare @val1 int
declare @val2 int

select @val1 = sum(column1) 
,(select @val2 = (select sum(column2) from table2))
,(@val1+@val2)Result
from table 1 

我想要做的是设置@val2子查询帮助我我的意思是在子查询中设置而不是单独的选择语句

我想使用 vb.net 用小数执行基本计算。

Dim a As Single= 7200.5
Dim b As Single= 7150.3
Dim c As Single= a - b

'Expected result = 50.2
MsgBox(a.ToString + " - " + b.ToString + " = " + c.ToString.Trim)
'Produced result is: 50.2002

Dim single1 As Single
Dim single2 As Single
Dim single3 As Single

single1 = 425000
single2 = 352922.2
single3 = single1 - single2

'Expected result is: 72077.8
MsgBox(single3.ToString)
'Produced result is: 72077.81

这么简单的计算，结果怎么会这么不准确呢？当我将数据类型更改为 时，问题解决了Decimal，但Decimal对象消耗了更多内存（16 字节）。是否有任何替代数据类型可用于执行具有准确结果的简单分数计算？

如何从原始 URL 或短 URL 获取重定向 URL？

例如：

    URL_1 (Short URL) = "http://af.ly/FQhAo"

这将重定向到

    URL_2 (Original URL) = "http://download.bitdefender.com/windows/desktop/t_security/2013/en-us/bitdefender_ts_2013_32b.exe"

那么我们如何从 URL_1 获取 URL_2 呢？请帮忙。（我用谷歌搜索但没有找到任何解决方案）

项目信息：

• 平台：Visual Basic Express 2010
• .NET 框架版本：2.0

谢谢你的时间。 编辑：

我只有一个 URL，它是 URL_1，我想在 URL1 的帮助下获取 URL_2。

请参阅下图，著名软件如何从 URL_1（短 URL 和已知）立即获取 URL_2（100% 未知字符串）。我想在visual basic .net的程序中做同样的事情。

有什么办法可以最大化打印预览对话框吗？

我在属性窗口的控件上看不到任何最大化属性。

我在路径中遇到错误，因为它正在检索System.Byte[]。如何访问添加到我的资源中的 PDF？

代码：

PdfDocument = PdfSharp.Pdf.IO.PdfReader.Open(My.Resources.CANEezz_Individual.ToString, PdfDocumentOpenMode.Modify)

Dim font9 As XFont = New XFont("Arial", 8)
Dim page As PdfPage = PdfDocument.Pages(0)
Dim graph As XGraphics = XGraphics.FromPdfPage(page)
graph.DrawString("Bank Passboook", font9, XBrushes.Black, 518, 343)

Dim pdfFilename As String = "something.pdf"
PdfDocument.Save(pdfFilename)
Process.Start(pdfFilename)