GeekByChoiCe

The following code converts "בניית ביניינים מתקדמים" to "BPJJZ_BJPJJPJM_NZWDNJM" [CODE=vb] Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click TextBox2.Clear Dim dic As New Dictionary(Of Char, Char) With dic .Add("א"c, "A"c) .Add("ב"c, "B"c) .Add("ג"c, "C"c) .Add("ד"c, "D"c) .Add("ה"c, "E"c) .Add("ו"c, "F"c) .Add("ז"c, "G"c) .Add("ח"c, "H"c) .Add("ט"c, "I"c) .Add("י"c, "J"c) …

You probably have an error already while connection to your datasource. The Finally block get executed, no matter what. means if there is an error on the connection, then the execute command will fail as well. try to use this code and see what error message pops up: [CODE=vb] Try …

hmm i have solved that problem in the past like this [code=vb] Dim menuStrip As Contexmenu= DirectCast(Form1.Controls.Find(menuname, True)(0), Contexmenu) menuStrip.Enable=True [/code]

why not just google for what he told you? i straight came to [url]http://msdn.microsoft.com/en-us/library/system.data.datatable_members.aspx[/url]

you would find all 3 answers if you use the forums search! why opening always new threads if the questions are already answered 100 times?

Thats depends... are you moving the mouse to another control on your form? if so you could just raise the click event for this control. lets say you move the mouse to textbox1 then you just do : [icode]textbox1_Click(me, new system.eventargs)[/icode] ofcourse this event have to exist. If there is …

it is might not the cleanest solution but works so far [CODE=vb] Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles RichTextBox1.TextChanged If RichTextBox1.Lines.Last.StartsWith("'") Then RichTextBox1.SelectionStart = RichTextBox1.GetFirstCharIndexOfCurrentLine RichTextBox1.SelectionLength = RichTextBox1.Lines.Last.Length RichTextBox1.SelectionColor = Color.Green RichTextBox1.Select(RichTextBox1.Lines.Last.Length, 1) Else RichTextBox1.SelectionColor =color.Black End If End Sub [/CODE]

[CODE=vb] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "3:05" TextBox2.Text = "1:00" TextBox3.Text = "0:55" Dim span As New TimeSpan span = TimeSpan.Parse(TextBox1.Text) + TimeSpan.Parse(TextBox2.Text) + TimeSpan.Parse(TextBox3.Text) TextBox4.Text = span.ToString End Sub [/CODE]

here is a small example which should give you an idea how to do it... [CODE=vb] Module Module1 Sub Main() Dim myProc As New Process() With myProc .StartInfo.FileName = "notepad.exe" .EnableRaisingEvents = True AddHandler .Exited, AddressOf MyProc_Exited .Start() End With Console.Read End Sub Private Sub MyProc_Exited(sender As Object, e As …

try this: Dim testString As String = String.Format("1={0}&2={1}&3={2}&5={3}&6=yes", numbers.lines(count), Second.text, third.text, random.Next(9, 18)) Debug.writeline(testString)

or call the load event with [icode]Form1_Load(Me, New System.EventArgs)[/icode]

i assume you forgot the " in line 5 just here. So if you change MsgBox("Not possible to read file.") to MsgBox(ex.message) then it will tell you what is wrong.

[CODE=vb] Dim sPath As String = String.Format("{0}{1}{0}", Chr(34), IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "APPLICATION B.exe")) If Process.GetProcessesByName("APPLICATION B.exe").Count = 0 Then Debug.Print("1 sPath=>" & sPath) File.Exists(sPath) Debug.Print("2 sPath=>" & sPath) Dim ShellProcess As New Process ShellProcess.StartInfo.FileName = sPath Debug.Print("ShellProcess.StartInfo.FileName=>" & ShellProcess.StartInfo.FileName) ShellProcess.StartInfo.UseShellExecute = True Debug.Print("ShellProcess.StartInfo.UseShellExecute=>" & ShellProcess.StartInfo.UseShellExecute) Dim isRunning As Boolean = ShellProcess.Start() Debug.Print("ShellProcess.Start=>" …

That doesnt work like this. DayOfWeek is an ENUM... try something like this: [CODE=vb] Dim nodeNamaHari As DayOfWeek For Each d In [Enum].GetNames(nodeNamaHari.GetType) nodeBulan.Nodes.Add(d) Next [/CODE]

I really don't want to be rude now...but I really hope there is no such software. Everyone who develop software should HAVE programming skill and layout knowledge.

[CODE=vb] If C1.Text = "Agra Fort" AND C2.Text = "Delhi" Then L8.Text = "800Rs/-" End If [/CODE]

are you looking for something like this? [CODE=vb] Private Structure myTest Dim x As Integer Dim y As String Dim z As Short End Structure Dim xyz As New myTest With {.x = 10, .z = 12} Dim fields As System.Reflection.FieldInfo() = xyz.[GetType]().GetFields(System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.[Public]) For Each field As System.Reflection.FieldInfo …

Does this error occur also when you just start VS and create a new VB project? Does it occur when you open a random VB project? or just when you open your own project?

the whole problem lays in "Class frmMultiplayer" you have declared: Dim msNickname As String = txtNickname.Text as global variable. But txtNickname does not exist yet....

First i am confused how u get A=0 as A's ascii code is 65 Anyway below is the code to convert all letter to their ascii code. [CODE=vb] Imports System.Text.RegularExpressions Module Module1 Sub Main() Dim str As String = "123A456B789" Dim reg As New Regex("[a-zA-Z]") Dim newString As String = …

shouldnt it be: totalTicketSalesDecimal += seatsSoldInteger * costDecimal so its adding the result to the totalTicketSalesDecimal

[CODE=vb] Dim num1 As Double = 2.8399999999999999 Dim num2 As Double = 3.1000000000000001 Dim num3 As Double = 4.8689999999999998 Debug.WriteLine(num1.ToString("F5")) Debug.WriteLine(num2.ToString("F5")) Debug.WriteLine(num3.ToString("F5")) [/CODE] Retruns: 2,84000 3,10000 4,86900

if you have a ftp server running on your linux box then why not using: [CODE=vb] My.Computer.Network.UploadFile("c:/complete/path/to/file", "ftp://your.url.com/path", "username", "password") [/CODE]

just a blue shot... UPDATE tblfirsthalf SET ShotsInsidePA = CInt(ShotsInsidePA) + 1 WHERE PlayerNumber = 1 if im not mistaken the sql statement dont know the datatype of a field. so it takes by default string, which have different behave on a operator like +

this DocViewFrm dont exist anymore when you close it. so each time you need that window do: [CODE=vb] dim frm as new DocViewFrm frm. show ... frm.close [/CODE]

it is actually enough to loop over the half of the word [CODE=vb] Sub Main() Dim word As String = "lagerregal" For I = 0 To word.Length - 1 / 2 If word.Substring(CInt(I), 1) = word.Substring(word.Length - CInt(I) - 1, 1) Then Continue For Else Console.WriteLine("The word is not a …

where and how you define FromDate and ToDate? also are you sure about your Where clause? i dont think it will ever return something since u check the same field for two different values

try this: [CODE=vb] psi.Arguments = String.Format("/F /IM {0}movie sleuth.exe{0}", Chr(34)) [/CODE]

see if that helps... [CODE=vb] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim numbers() As Integer = {CInt(TextBox1.Text), CInt(TextBox2.Text), CInt(TextBox3.Text)} Label10.Text = CStr(numbers.Max) Label12.Text = CStr(numbers.Min) Dim tmpArray As New ArrayList 'to hold the uniq numbers For Each num As Integer In numbers Dim i …

maybe not the best solution but a working one... [CODE=vb] Dim arr1() As String = {"BAX", "XDS", "AAA", "GFD", "AAB"} Dim arr2() As String = {"67", "45", "2", "88", "89"} Dim arr3() As String = {"b4", "g5", "j3", "k8", "d3"} Dim arr4() As String = {"df", "hj", "tz", "we", "xs"} …

why not just: [CODE=vb] Dim lines() As String = IO.File.ReadAllLines("C:\myFie.txt") For Each line As String In lines 'do what you want with each single line Next [/CODE]

maybe that helps: [CODE=vb] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "abcaba" Dim dic As New Dictionary(Of Char, Integer) For Each c As Char In TextBox1.Text If dic.ContainsKey(c) Then dic(c) += 1 Else dic.Add(c, 1) End If Next For Each d As KeyValuePair(Of …

[CODE=vb] Debug.WriteLine(My.Computer.FileSystem.GetFileInfo("C:\image.png").Length) 'OR Debug.WriteLine((New IO.FileInfo("C:\image.png")).Length) [/CODE]

Dim strDTM As String = dtmInputBox.PadLeft(6, "0") will fill your string with leading 0 on a total length of 6

small example: [CODE=vb] Dim str As String = "NW at 6 mph" Dim reg As New Text.RegularExpressions.Regex("[0-9]{1,}") Debug.WriteLine(reg.Match(str).Value) [/CODE]

tcpclient.Close() <<< thats the reason this code is made for demonstration only and closes after first receive. You have to add some eventhandlers for client connect, receiving and so and only close the tcpclient if you really want it.

please show us your code and where exactly you stick.

you could show some kind of "freezer" form. just create a snapshot of the current form and display it in the freezed form while your dll is loading

i hope i understood you correct. [CODE=vb] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim reg As New RegularExpressions.Regex("[,.;]") 'add here punctuation if needed 'remove punctuation and split string by whitespace Dim str1() As String = reg.Replace(TextBox1.Text, " ").Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries) TextBox3.Text = …

try [CODE=vb] Process.Start("C:/Program Files/MySQL/MySQL Server 5.1/bin/mysqldump.exe", " --host=localhost --user=my --password=12345 --databases test > -r " & chr(34) & My.Settings.Locbackup & chr(34)) [/CODE] most of time its all about the quotes.

a bit more dynamic way... [CODE=vb] Private Sub button_Clicks(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click, btn3.Click CType(CreateForm(CStr(CType(sender, Button).Tag)), Form).Show() End Sub Private Shared Function CreateForm(ByVal requestedForm As String) As Object Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly() Dim frm = (From g In myAssembly.GetTypes Where g.BaseType.FullName = "System.Windows.Forms.Form" …

hope i understood your question correctly [CODE=vb]Private Sub ShortWay() Dim st As String = "myString" Dim result As String = String2Unicode(st).Replace(Chr(0), Chr(0) & "|") Console.WriteLine(result) End Sub Private Sub LongWay() Dim st As String = "myString" Dim sb As New Text.StringBuilder For Each c As Char In st sb.AppendFormat("{0}|", String2Unicode(c)) …

think that might help --> [url]http://msdn.microsoft.com/en-us/library/system.net.httpwebrequest.begingetresponse.aspx[/url]

Could you please post the content of the xml file?

could you please post your code that belongs to the whole case? such as the source of listbox items, the backgroundworker initializing and its methods?

[CODE=vb]TextBox1.Text.PadRight(6)[/CODE] will fill your string with spaces

Array.Reverse is a procedure without a return type. To fill your arrays you should reverse it and then copy into the array just like [CODE=vb] Private mapAsciiToUnicode() As String = {"h" >= "1920", "S" >= "1921", "n" >= "1922", "r" >= "1923", "b" >= "1924", "L" >= "1925", "k" >= …

Make sure the computer have requiered .NET version installed

Ok, here is a working snippet: [CODE=vb] Public Class DataNotes 'to hold the information Public Property NameId As String Public Property ColorId() As Integer Public Property Text() As String End Class Sub ReadData() Dim myData As New List(Of DataNotes) Dim regex As New Text.RegularExpressions.Regex("^NOTE NameId=""(.*)"" ColourId=""([0-9]{1,})"" Text=""(.*)""", Text.RegularExpressions.RegexOptions.Multiline) For Each …

[CODE=vb] Dim myFile As String = "C:\report.html" Dim stream As New IO.FileStream(myFile, IO.FileMode.Create) Dim writer As New IO.StreamWriter(stream) writer.WriteLine(TextBox8.Text) writer.WriteLine(DateTimePicker1.Text) writer.WriteLine(<p/>) writer.WriteLine("<table width='95%' border='1' cellspacing='1' cellpadding='1'> ") writer.WriteLine(<tr> <td><strong>Customer Name</strong></td> <td><strong>Cost</strong></td> <td><strong>Number of hours</strong></td> <td><strong>Time Start</strong></td> <td><strong>Time Remaining</strong></td> <td><strong>Facility Name</strong></td> <td><strong>Amenity Name</strong></td> <td><strong>Incharge Employee</strong></td> </tr>) For Each item As ListViewItem …