Articles of vb.net

用Visual Basic在Windows窗体中embeddedDOS控制台

我已经设法从其他问题find一些数据,使我能够实现下一个代码: Imports System.Runtime.InteropServices Public Class Form1 <DllImport("user32.dll")> _ Public Shared Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Boolean) As Boolean End Function <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As […]

如何防止控件在VB.net中加载时闪烁?

我目前面临着我目前的Windows应用程序的问题。 这是我的问题的video。 闪烁的问题 正如你所看到的,每次我点击一些button,当它加载控件(选项卡控件和面板)时,它们闪烁着,看起来很烦人。 我怎样才能摆脱这个? 我已经尝试将DoubleBuffer设置为true,但仍然不起作用。 任何帮助? 我也在加载事件中执行了suspendlayout()和resumelayout(),但仍然不起作用。 或者也许是因为我错误地编码了。 这是我的代码: Private Sub frmAdminPanel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lblUser.Text = currentUser Me.pnlOverview.SuspendLayout() Me.tabPayment.Visible = False Me.tabClientReporting.Visible = False Me.btnNewEntry.Visible = False Me.btnPayment.Visible = False setOverview() Me.pnlOverview.Visible = True Me.pnlOverview.ResumeLayout() End Sub

asynchronousWCF调用在客户端处理不当

这是情况。 我有一个WinForm应用程序(C#,.NET 3.5),遵循asynchronous基于事件的devise模式。 主控件(MainResultControl)根据用户请求创build多个子控件实例(ResultControl)。 每个子控件都有一组用户select的独特参数。 然后每个子控件asynchronous调用WCF服务: WebServiceClient.GetResultsAsync(Parameters param) 每个子控件还会注册Web Service的GetResultsCompleted事件 WebServiceClient.GetResultsCompleted + = _service_GetResultsCompleted() 这是我们面临的问题。 用户抱怨有时ResultControl会显示意外的一组数据 – 与他们所要求的无关。 当处理Web服务中引发的GetResultsCompleted事件时,控件的一个实例是否可能收到其他实例请求的结果? 谢谢。 这里是一些支持代码(VB):父控制(MainResultControl) Private Sub Submit_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles tbSubmit.Click 'a copy of MyRequestArgs is created with the details of request' pnlResult.Controls.Add(new ResultsControl(_myRequestArgs)) End Sub 子控件(ResultsControl): Public Class ResultsControl Public _webRequestResult […]

强制.NET的Windows应用程序。 以英文forms显示数字

我正在build立一个文化特定的.NET Windows应用程序,最近我遇到了一个根据OS文化而改变的数字形状的问题。 例如,如果操作系统文化是英语(美国)并运行应用程序,显示的数字将是英文forms(我们曾经使用过的常用语言),但如果我将窗口文化更改为阿拉伯 – 沙特阿拉伯,数字将显示在不同的形状。 我想强制这个应用程序只显示英文形状的数字,无论文化是什么。 我search了互联网,厌倦了许多尝试改变应用程序文化和UICulture没有任何结果的解决scheme。 问候,

在if语句中使用多个操作时遇到麻烦

每次我使用多个动作代码,它不会产生和输出,代码不工作,直到我给它一个单独的行动,而不是三个,我不知道什么是错的,我试图把这个代码在if语句和/或只要按下保存button,就可以将其作为一个动作 inheritance人的代码\ btw即时通讯使用Visual Studio 2012 Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click Dim Path1 As String = "Backups\" Dim Path2 As String = rtbTitle.Text + "\" Dim FullPath As String = Path1 + Path2 Dim textfileTitle As String = "title.txt" Dim textfileDescription As String = "description.txt" Dim textfileTag As String = "tag.txt" […]

有一个API来设置在双击的第一次和第二次点击之间可能发生的最小毫秒数?

我find了SetDoubleClickTime函数来设置鼠标的双击时间。 这意味着: the maximum number of milliseconds that may occur between the first and second clicks of a double-click. 但是我想在OS中设置相反的事情,最小间隔要考虑用户做了一个双击。 这有可能吗? 编辑:只是我想知道,如果我有更多的select比挂钩鼠标和设置计时器或其他东西来比较时间。 UPDATE 我最初的意图是想方设法将这个AutoHotkey片段转换为.NET代码: LButton:: If ( A_TimeSincePriorHotkey < 50 ) SendInput, {Lbutton Down} return Lbutton Up::SendInput, {Lbutton Up} MButton:: If ( A_TimeSincePriorHotkey < 50 ) SendInput, {MButton Down} return Mbutton Up::SendInput, {MButton Up} RButton:: […]

如何获得三字母本地语言名称?

TwoLetterISOLanguageName , ThreeLetterIsoLanguageName , EnglishName , NativeName , DisplayName等可以通过CultureInfo获取。 例如: Dim buffer As String = "IetfLanguageTag" & ControlChars.Tab & _ "TwoLetterISOLanguageName" & ControlChars.Tab & _ "ThreeLetterISOLanguageName" & ControlChars.Tab & _ "EnglishName" & ControlChars.Tab & _ "NativeName" & ControlChars.Tab & _ "Name" & ControlChars.Tab & _ "DisplayName" & _ Environment.NewLine For Each ci As CultureInfo In […]

对多个类执行单个WMI查询,可能是?

我需要对不同的WMI类执行各种查询,而不是逐个查询,以提高执行速度,我认为这是: 在C#或VB.Net,我想知道是否可以做一个单一的查询一次检索多个类的属性。 随机没有function的例子: Using wmi As New Management.ManagementObjectSearcher( "select SerialNumber from Win32_BaseBoard, select Caption from Win32_Process" ) … End Using 如果是,哪个是正确的查询语法?

如何将VB.NET Web应用程序发布到我的Azure Windows 2012 R2 VM

在生成菜单>发布命令中,我select哪些选项来将我的Visual Basic 2015 VB.NET Web应用程序发布到Azure Windows 2012服务器R2 VM上的IIS? 我不确定我想发布到“Microsoft Azure Web Apps”。 似乎会跳过我的虚拟机。 在我的虚拟机上,我有其他的应用程序运行,我的networking应用程序将需要共享文件。 我试过select“自定义”,但是我要将“服务器”,“站点名称”和目标URL设置为? 我是否使用我的虚拟机服务器部署名称?

VB.NET计时器的问题

我写了一个VB.NET Windows服务,工作正常。 我只有一个问题。 我希望服务在半小时和小时标志的顶部执行(例如9:00,9:30,10:10,10:30,11 :,等等)。 我正在使用下面的代码: Protected Overrides Sub OnStart(ByVal args() As String) ' Add code here to start your service. This method should set things ' in motion so your service can do its work. Dim oCallBack As New TimerCallback(AddressOf TimedEvent) oTimer = New System.Threading.Timer(oCallBack, Nothing, 300000, 300000) EventLog.WriteEntry("CCFinalizeService has begun successfully." , _ […]