Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.
All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!
ahm. .natry ko na po line 15 nmn po may error.
Dim subkeys() As String = regkey.GetSubKeyNames
yan po nsa line 15. .
sir maskio. .pahelp n din po.
ahm ayan po ang balak talga mangyari..ndi ko lng po tlga alam kung bkit dito ndi nagana. .sir maibato lang po ito.malaki n magiging epekto n po yan sa system namen.
ahm. .natry ko na po line 15 nmn po may error.
Dim subkeys() As String = regkey.GetSubKeyNames
yan po nsa line 15. .
sir maskio. .pahelp n din po.
ahm ayan po ang balak talga mangyari..ndi ko lng po tlga alam kung bkit dito ndi nagana. .sir maibato lang po ito.malaki n magiging epekto n po yan sa system namen.
Dim regpath As String = "Software\Microfoft\Windows\CurrentVersion\Uninstall"
hmm. .ok na po.. thanks po mga sir. .d ko po ksi napansin unn. .haist. . maraming salamat po.then ang problem ko na lang po is maibato po ito sa server namen. .
MARAMING SALAMAT PO. .
Sir maskio Sir eric at Sir polens. .
help na lang po dito sa pagbato.la po ako idea sa pag pagbato nito ehh.
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Private serverSocket As New TcpListener(5678)
Private clientSocket As New TcpClient
Private Message As String = ""
Private Sub Listening()
serverSocket.Start()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ListenerThread As New Thread(New ThreadStart(AddressOf Listening))
ListenerThread.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If serverSocket.Pending = True Then
Message = Nothing
clientSocket = serverSocket.AcceptTcpClient()
Dim Reader As New StreamReader(clientSocket.GetStream())
While Reader.Peek > -1
Message = Message + Convert.ToChar(Reader.Read()).ToString
End While
ListBox1.Items.Add(Message)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
clientSocket = New TcpClient(TextBox2.Text, 5678)
Using Writer As New StreamWriter(clientSocket.GetStream())
Writer.Write(TextBox1.Text)
Writer.Flush()
End Using
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = Nothing
Catch ex As Exception
End Try
End Sub
End Classhalos lahat po ng codes sir na may connection for payroll system, mag-uumpisa palang po kase kame gumawa ng system namin.. kung meron po kayong maidadagdag na suggestion codes sir, thanks in advance po
paki tingin po nito sir ,
bale po sa errorprovider1.seterror po sya may error , ayaw po basahin yung (emptytxtboxes, "no input ")
thanks po talaga
Unable to cast object of type 'WhereSelectEnumerableIterator`2[System.Windows.Forms.TextBox,System.String]' to type 'System.Windows.Forms.Control'.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim emptyTextBoxes =
From txt In Group2.Controls.OfType(Of TextBox)()
Where txt.Text.Length = 0
Select txt.Name
If emptyTextBoxes.Any Then
ErrorProvider1.SetError(emptyTextBoxes, " No Input ")
MessageBox.Show("Please fill out all form to proceed")
End If
End Sub
dim foundEmptyTextbox as boolean
for each objControl as control in group2.controls
if typeof objControl is textbox then
dim objTextbox = objControl
if objTextbox.text = nothing then
foundEmptyTextbox = true
exit for
end if
end if
next
if foundEmptyTextbox then
msgbox("Please fill out all form to proceed")
end ifpaki tingin po nito sir ,
bale po sa errorprovider1.seterror po sya may error , ayaw po basahin yung (emptytxtboxes, "no input ")
thanks po talaga
Unable to cast object of type 'WhereSelectEnumerableIterator`2[System.Windows.Forms.TextBox,System.String]' to type 'System.Windows.Forms.Control'.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim emptyTextBoxes =
From txt In Group2.Controls.OfType(Of TextBox)()
Where txt.Text.Length = 0
Select txt.Name
If emptyTextBoxes.Any Then
ErrorProvider1.SetError(emptyTextBoxes, " No Input ")
MessageBox.Show("Please fill out all form to proceed")
End If
End Sub
For Each objControl In Me.Controls
If TypeOf objControl Is TextBox Then
Dim objTextbox As TextBox = objControl
If objTextbox.Text = Nothing Then
ErrorProvider1.SetError(objTextbox, "Fatal Error")
Else
ErrorProvider1.SetError(objTextbox, Nothing)
End If
End If
Next
