Hey I am working on a Windows App in Vb.net where I load a Dropdown box and a Listview with Printers from a Printserver.
I can do this if it were pulling data from a database but  the goal is to type in dropdown the Printername and dropdown autocompletes like a Google Search My Challenge is when dropdown is selected I want listview to filter to the name in dropdown.
Here is the visyuals and code. I don't know how to sort to printer in listview.
Here are the Print names next to Icon of Printer

  Public Sub Printers()
        Dim options As ConnectionOptions
        options = New ConnectionOptions
        options.Username = "xxxxxx"
        options.Password = "xxxxxxxxxxxx"
        LSPrinters.Clear()
        '* Test the connection


        '  Dim ps() As Services
        LSPrinters.BeginUpdate()

        LSPrinters.Columns.Add("", 150, HorizontalAlignment.Center)
        LSPrinters.Columns.Add("Name", 150, HorizontalAlignment.Left)
        LSPrinters.Columns.Add("DriveName", 250, HorizontalAlignment.Left)
        LSPrinters.Columns.Add("Location", 250, HorizontalAlignment.Left)

        LSPrinters.Columns.Add("Port Name", 200, HorizontalAlignment.Left)
        ' LSPrinters.Columns.Add("Document", 150, HorizontalAlignment.Left)
        ' LSPrinters.Columns.Add("Jobstatus", 150, HorizontalAlignment.Left)
        '' LSPrinters.Columns.Add("PagesPrinted", 150, HorizontalAlignment.Left)
        ' 

Select all Open in new window

…

Hello,
How to export a datable as a url. The displayed web form should have the datatable in the form of a table.
 Thanks

Hello Experts,
We have this very small visual basic .net application that has been working ok for years.
now all of a sudden we get the error


System.Runtime.InteropServices.COMException: 'Unknown error.'

when executing the
Private Sub InitializeComponent()
   ...
  ....
 ....
        Me.Text = "test Web Browser"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        CType(Me.wb, System.ComponentModel.ISupportInitialize).EndInit()  <<< <<<<<<<<<<<<<<<<<<<<<<here
        Me.ResumeLayout(False)   ' DEBUG
        Me.PerformLayout()
end sub

this has never been a problem,
Please your advice on this

Hello,
I have a code which works perfectly to find and replace but, how can I avoid repetition.

  Dim FindObject As Word.Find = oDoc.Content.Find
            With FindObject
                .ClearFormatting()
                .Text = "«" & "Dr" & "*»"
                .Replacement.ClearFormatting()
                .Replacement.Text = ""
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False '
                .Execute(Replace:=Word.WdReplace.wdReplaceAll)
            End With

            With FindObject
                .ClearFormatting()
                .Text = "«" & "Mo" & "*»"
                .Replacement.ClearFormatting()
                .Replacement.Text = ""
                .Forward = True
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = True
                .MatchSoundsLike = False
                .MatchAllWordForms = False '
                .Execute(Replace:=Word.WdReplace.wdReplaceAll)
            End With
            With FindObject
                .ClearFormatting()
                .Text = "«" & "Ve" & "*»"
                .Replacement.ClearFormatting()
                .Replacement.Text = ""
                .Forward = True
                .Format = False
           

Select all Open in new window

…

In my .net c# project I have two jason like this

Json1

{"WindowsServices":[{"name":"SNMP","statusID":"1","StatusMsg":"Stopped","FullStatus":"SNMP,1"},{"name":"SNMPTRAP","statusID":"1","StatusMsg":"Stopped","FullStatus":"SNMPTRAP,1"}]}

Select all Open in new window

Json2

{"WindowsServices":[{"name":"SNMP","statusID":"4","StatusMsg":"Running","FullStatus":"SNMP,4"},{"name":"SNMPTRAP","statusID":"1","StatusMsg":"Stopped","FullStatus":"SNMPTRAP,1"}]}

Select all Open in new window

I need to compare this to json and get the result of the modified part oly

{"WindowsServices":[{"name":"SNMP","statusID":"4","StatusMsg":"Running","FullStatus":"SNMP,4"}]}

Select all Open in new window

Thank you for your help!!

am not sure why this isn't working but I have a Winform Powershell script that features a function that has a OpenFileDialog element so a user clicks a button and will be able to browse to a file that saves to a variable.
The script works fine if run like a normal powershell script, however when I use PS2EXE to convert it to an exe, it does not open.
If I remove the if/else clause from the function, the exe will open properly after I convert it.

function Get-FileName($initialDirectory)
{
    [System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") | Out-Null

    $OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
    $OpenFileDialog.title = "Please select a report"
    $OpenFileDialog.initialDirectory = "G:\Departments\Marketing\CSV_Reports"
    $OpenFileDialog.filter = "CSV (*.csv)| *.csv"
    #$OpenFileDialog.ShowDialog() | Out-Null
    $result = $OpenFileDialog.ShowDialog()


if($result -eq “Ok”) {

$script:newFileName = $OpenFileDialog.filename
$script:RefundFile = Get-ChildItem $newFileName
$script:fileLocation = $RefundFile | select -ExpandProperty versioninfo | select -ExpandProperty FileName
$script:fileFolder = Split-Path $fileLocation
$fileDetails_FileName.Text = $RefundFile.name
$fileDetails_FileLastCreated.Text = $RefundFile.CreationTime
$fileDetails_FileLastModified.Text = $RefundFile.LastWriteTime
$fileDetails_FileFolderLocation.Text = $fileLocation

}

else {
Write-Host “Cancelled by user"

}    

Select all Open in new window

So the purpose if the If/Else is so that a file is actually selected, otherwise hitting cancel would just pass a wrong variable over.
But it just doesn't allow the .exe of this script to open properly.

I am seeing double boxes on my web form grid on some fields.
It is definitely the data because If I load the data value into a label  it shows the same way.

vb.Net web forms .Net 4.5
MS SQL Server 2012 database

You can see the boxes below in ALL the email addresses and one of the last names.
How can I trim this?

We have tried LTRIM and RTRIM

And the data is coming in from a service with varname.ToString().Trim()

Hello Experts.

I've been wanting to a add a really nice looking pop-up that shows temporarily for a set number of seconds then doesn't show again while the program is running. I'm only able to get it to partially show on the screen. The fantasy was to have something that floats up then goes away, but that's more of a WPF thing and I am only working with a basic Windows Form. I'm thinking perhaps the System.Threading.Thread.Sleep function is causing the problem, but I'm not sure how else to do this.

To help with understanding my issue, I have created a quick Demo solution that should suffice for its purpose. Please note that I still don't have WinZip, so the attached file is actually a .RAR file renamed to have a .ZIP extension so the EE uploader would take it.

BTW, I found a pretty decent solution that also uses System.Threading.Thread.Sleep but it uses the MsgBox function, and not a custom form which is what I want to do. Nevertheless, it does work. This is the code for that solution. If we can just swap out the standard dialogue with mine, that would be great!

Module FormUtils
    Private sAutoClosed As Boolean
    Private Sub CloseMsgBoxDelay(ByVal data As Object)
        System.Threading.Thread.Sleep(CInt(data))
        SendKeys.SendWait("~")
        sAutoClosed = True
    End Sub
    Public Function MsgBoxDelayClose(prompt As Object, ByVal delay As Integer, Optional buttons As MsgBoxStyle = MsgBoxStyle.ApplicationModal, Optional title As 

Select all Open in new window

…

Hi Experts,

I want to display the "number" with "Unit"  for ex. 12 oz. I am using the expression "=Fields!AdjustedPan.Value & Fields!Unit.Value" on that textbox. It displays 12oz. I need and space in between. So I tried ""=Fields!AdjustedPan.Value & "  " & Fields!Unit.Value". But It does not work. What can I do to give a space between the number and the unit. Also need a "." at the end( Like 12 oz.) .

Thanks in advance.

All,
  I'm using VS 2015 Enterprise, specifically vb.net along with crystal reports.
I have a form1.vb that opens mysql database, asks user for start date & end date & lastly creates xml schema of requested data.

Imports MySql.Data.MySqlClient
Imports System.Text.RegularExpressions

Public Class Form1
    Dim myData As New DataSet
    Dim conn As New MySqlConnection
    Dim cmd As New MySqlCommand
    Dim myAdapter As New MySqlDataAdapter

    Public MySQLConnectionString As String = "server= www.automatedanswers.com;user id=russemi2_test;password=Passw0rd;database=russemi2_test"
    Dim connStr As String = MySQLConnectionString
    Dim sql As String
    Dim id As String
    Dim datetime, datetime2 As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pattern As String = "^(20)\d\d[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])$"
        Dim regex As New Regex(pattern)
        datetime = ""
        datetime = InputBox("Start Date - Use Format 'yyyy-mm-dd'")
        Do While Not regex.IsMatch(datetime)
            datetime = ""
            datetime = InputBox("Start Date - Use Format 'yyyy-mm-dd'")
        Loop


        datetime2 = InputBox("End Date - Use Format 'yyyy-mm-dd'",, datetime)
        Do While Not regex.IsMatch(datetime2)
            datetime2 = ""
            datetime2 = InputBox("End Date - Use Format 'yyyy-mm-dd'")
        Loop

        datetime2…

I am trying to load an image, place a text, draw lines, then save.
The following is my code, it loads ok, draws ok, but saving saves only the loaded image without the placed text or lines.

Is there a way to solve it?

        Dim FontNameIs, TextLineIs As String
        Dim FontSizeIs, CurrX, CurrY As Integer
        Dim fontToMeasure As New Font("Microsoft Sans Serif", 14, FontStyle.Bold)

        PictureBox1.Load("MyPictureFile.JPG")

        TextLineIs = "Text to be placed on top of MyPictureFile.jpg"
        FontNameIs = "Arial"
        FontSizeIs = 14
        CurrX = 20
        CurrY = 50

        PictureBox1.CreateGraphics.DrawString(TextLineIs, New Font(FontNameIs, FontSizeIs), Brushes.Black, CurrX, CurrY) 'placing a text

        Dim P As Pen = New Pen(Color.Black)
        PictureBox1.CreateGraphics.DrawLine(P, 20, 50, 492, 50) 'drawing a line

        If PictureBox1.Image IsNot Nothing Then
            PictureBox1.Image.Save("C:\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End If