Tag: vb.net

.NET中的事件签名 – 使用强types的“发件人”？

我完全意识到我所提议的并不遵循.NET的指导方针，因此，仅仅因为这个原因可能是一个糟糕的主意。 不过，我想从两个可能的angular度来考虑： （1）我是否应该考虑将其用于我自己的开发工作，这是100％用于内部目的。 （2）这是一个框架devise者可以考虑改变或更新的概念吗？ 我正在考虑使用事件签名，它使用强types的“发件人”，而不是将其作为当前的.NETdevise模式“对象”input。 也就是说，而不是使用如下所示的标准事件签名： class Publisher { public event EventHandler<PublisherEventArgs> SomeEvent; } 我正在考虑使用使用强types的“发件人”参数的事件签名，如下所示： 首先，定义一个“StrongTypedEventHandler”： [SerializableAttribute] public delegate void StrongTypedEventHandler<TSender, TEventArgs>( TSender sender, TEventArgs e ) where TEventArgs : EventArgs; 这与Action <TSender，TEventArgs>并不完全相同，但是通过使用StrongTypedEventHandler ，我们强制TEventArgs从System.EventArgs派生。 接下来，作为一个例子，我们可以在发布类中使用StrongTypedEventHandler，如下所示： class Publisher { public event StrongTypedEventHandler<Publisher, PublisherEventArgs> SomeEvent; protected void OnSomeEvent() { if (SomeEvent != null) { SomeEvent(this, new PublisherEventArgs(…)); […]

通过OAuth访问imgUr（上传到用户帐户）

为了开始做这个“简单”的任务，我已经研究了一个我在这里作为例子遵循并重现步骤的程序，程序可以上传一个“匿名”的图像： Private ReadOnly ClientId As String = "My Client ID" ' => "……………" Private ReadOnly ClientSecret As String = "My Client Secret" ' => "…………………………………." ' Usage: ' Dim url As String = UploadImage("C:\Image.jpg") : MessageBox.Show(url) Public Function UploadImage(ByVal image As String) Dim w As New WebClient() w.Headers.Add("Authorization", "Client-ID " & ClientId) Dim Keys As […]

Vb.net随机数发生器多次生成相同的数字

我有这个程序从一个文件生成一个名字和姓氏。 当我运行这个程序时，我在三个文本框中input信息。 前两个是薪水低和高（salary1.text，salary2.text），最后一个是我想要的“副本”（copies.text）的数量。当我把一个数字如10它会输出一些相同的名字。 firstname文件有大约100条logging，lastname文件有大约1000条logging 为什么它生成相同的名称 如果我做1000份拷贝，问题就更糟了。它输出8次相同的东西，然后再做8次不同的东西 Public Class Form1 Dim sex As String Function randomfirstname() Dim infile As IO.StreamReader Dim infile1 As IO.StreamReader Dim male() As String Dim female() As String Dim name As String Dim n As Integer = 0 Dim fun As New System.Random Dim maleorfemale As New Random() Dim RandomNumber As Integer […]

使用Interop从Excel文件中删除空行和列的最快速的方法

我有很多包含数据的Excel文件，它包含空行和空列。 如下图所示 我正在尝试使用互操作从Excel中删除空行和列。 我创build了一个简单的winform应用程序，并使用下面的代码，它工作正常。 Dim lstFiles As New List(Of String) lstFiles.AddRange(IO.Directory.GetFiles(m_strFolderPath, "*.xls", IO.SearchOption.AllDirectories)) Dim m_XlApp = New Excel.Application Dim m_xlWrkbs As Excel.Workbooks = m_XlApp.Workbooks Dim m_xlWrkb As Excel.Workbook For Each strFile As String In lstFiles m_xlWrkb = m_xlWrkbs.Open(strFile) Dim m_XlWrkSheet As Excel.Worksheet = m_xlWrkb.Worksheets(1) Dim intRow As Integer = 1 While intRow <= m_XlWrkSheet.UsedRange.Rows.Count If […]

处理vb.net中的dbnull数据

我想生成一些从MS-Access数据库检索到的数据的格式化输出，并存储在DataTable对象/variablesmyDataTable中。 但是，myDataTable中的一些字段包含dbNull数据。 因此，如果任何字段的姓氏 ， intials或sID的值为dbNull ，则以下VB.net代码段将出现错误。 dim myDataTable as DataTable dim tmpStr as String dim sID as Integer = 1 … myDataTable = myTableAdapter.GetData() ' Reads the data from MS-Access table … For Each myItem As DataRow In myDataTable.Rows tmpStr = nameItem("lastname") + " " + nameItem("initials") If myItem("sID")=sID Then ' Do something End If […]

如何解决COMexception类未注册（exception来自HRESULT：0x80040154（REGDB_E_CLASSNOTREG））？

当我尝试创build一个COM类的实例时，会引发一个exception 未注册的类（从HRESULTexception：0x80040154（REGDB_E_CLASSNOTREG）） 请build议我怎么解决它？

通常最好使用 – StringComparison.OrdinalIgnoreCase或StringComparison.InvariantCultureIgnoreCase？

我有这样的代码： If key.Equals("search", StringComparison.OrdinalIgnoreCase) Then DoSomething() End If 我不在乎这个情况。 我应该使用OrdinalIgnoreCase ， InvariantCultureIgnoreCase或CurrentCultureIgnoreCase ？

如何从.NET执行SSIS包？

我有一个SSIS包，最终我也想传递参数，这些参数将来自一个.NET应用程序（VB或C＃），所以我很好奇，如果有人知道如何做到这一点，或更好的网站有帮助的提示如何做到这一点。 所以基本上我想要从.NET执行一个SSIS包，传递它可以使用的SSIS包参数。 例如，SSIS包将使用平面文件导入到SQL数据库中，但是文件的path和名称可以是从.Net应用程序传递的参数。

如何按文件名和数字排列文件列表？

我有一堆目录中的文件，我试图根据他们的types得到。 一旦我有了它们，我想通过文件名来命令它们（在它们中有一个数字，我想以这种方式命令它们） 我返回的文件是： file-1.txt file-2.txt … file-10.txt file-11.txt … file-20.txt 但我得到他们的顺序看起来更接近这个： file-1.txt file-10.txt file-11.txt … file-2.txt file-20.txt 现在我正在使用Directory.GetFiles()并尝试使用linq OrderBy属性。 但是，我很不好，我需要做什么来sorting像上面的第一个列表的文件列表。 Directory.GetFiles()似乎是返回一个string列表，所以我无法获得文件属性，如filename或name的列表。 这是我的代码目前： documentPages = Directory.GetFiles(documentPath, "*.txt").OrderBy(Function(p) p).ToList() 有没有人有任何想法？

将图片存储到数据库; 从数据库检索到Picturebox

您好我张贴这个较早，得到一些帮助，但仍然没有工作的解决scheme。 我已经确定感谢最后一个问题，我的“保存到数据库”代码以及我的“检索到图片”代码有问题。 即使如果我手动将图片保存在数据库它stil不会retreive。 这是我从网上的3或4个例子一起修补的代码。 理想情况下，如果有人有一些已知的良好的代码，并可以指示我，这将是最好的。 Dim filename As String = txtName.Text + ".jpg" Dim FileSize As UInt32 Dim ImageStream As System.IO.MemoryStream ImageStream = New System.IO.MemoryStream PbPicture.Image.Save(ImageStream, System.Drawing.Imaging.ImageFormat.Jpeg) ReDim rawdata(CInt(ImageStream.Length – 1)) ImageStream.Position = 0 ImageStream.Read(rawdata, 0, CInt(ImageStream.Length)) FileSize = ImageStream.Length Dim query As String = ("insert into actors (actor_pic, filename, filesize) VALUES (?File, ?FileName, ?FileSize)") […]