Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
For example if I was to enter 12.3 when I press 1 then 2 ,"12" is displayed (this is good),
Private Sub Buttonnum(btn As Button, e As EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click, btna.Click, btnb.Click, btnx.Click, btny.Click, btnz.Click, btnDecimalPoint.Click Dim WB As String = WB2.DocumentText If WB = String.Empty Then WB = "<p dir=""RTL"">" Else If WB.Substring(WB.Length - 4) = "</p>" Then 'checks to see if "</p>" is at the end of the string. WB = WB.Substring(0, WB.Length - 4) 'of the string. If it is it removes it. End If End If If List.Count > 0 Then Select Case List(List.Count - 1) Case "*", "+", "-", "/" If btn.Text = "." Then WB += "0" & btn.Text Else WB += btn.Text End If Case CChar(CStr(0)) To CChar(CStr(9)) WB += btn.Text End Select Else If btn.Text = "." Then WB += "0" & btn.Text Else WB += btn.Text End If End If WB += "</p>" WB2.DocumentText = WB Application.DoEvents() WB2.Refresh() List.Add(btn.Text) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.