VB.NET

[rosharavinda]

machan la umbala dena project ekak C# nathuwa VB.NET walin deepanlako.mata one VB.NET project ekakkkkkkkk

 

[Core]

http://www.elakiri.com/forum/blog.php?b=2362
here is my HTML Editor VB.NET version

 

[Zodiac]

mage langa thibuna Customer Registration ekak mama upload kala...dl karala balanna(VB.Net 2005)
http://rapidshare.com/files/362417346/Customer_Registration.rar.html

 

[Kasun k]

alright I will send u the Message but first clean up some and get some space in ur inbox

elaz

 

[Zodiac]

menna Calculator ekak
http://rapidshare.com/files/362421964/Calculator.rar.html

 

[cm2004cm4ever]

weda tika iwarai kala ehema awith upload karannam

 

[cm2004cm4ever]

http://www.ziddu.com/download/8939329/StudentRegistration.zip.html



Public Class Form1

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim spYear = 1970, spDate = 1
While (spYear <= 2010 And spDate <= 31)
Me.cmbYear.Items.Add(spYear)
Me.cmbDate.Items.Add(spDate)
spYear += 1
spDate += 1
End While
RegistrationTableAdapter1.Update(DatabaseDataset1.registration)
End Sub

Private Sub chkMale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkMale.Click
If Me.chkFemale.Checked = True Then
Me.chkFemale.Checked = False
Me.chkMale.Checked = True
Else : Me.chkMale.Checked = True
End If
End Sub

Private Sub chkFemale_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkFemale.Click
If Me.chkMale.Checked = True Then
Me.chkMale.Checked = False
Me.chkFemale.Checked = True
Else : Me.chkFemale.Checked = True
End If
End Sub

Private Sub txtTel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtTel.TextChanged
If Not IsNumeric(txtTel.Text) Then
MsgBox("You can enter only numbers in this field.", MsgBoxStyle.Exclamation, "Warning")
Me.txtTel.Focus()
Me.txtTel.SelectionStart = txtTel.TextLength - 1
Me.txtTel.SelectionLength = txtTel.TextLength
End If
End Sub

Private Sub tmrBchk_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrBchk.Tick
If Me.txtStud.TextLength > 0 And Me.txtAdd.TextLength > 0 And Me.txtEmail.TextLength > 0 And Me.txtTel.TextLength > 0 Then
If Me.chkMale.Checked = True Or Me.chkFemale.Checked = True Then
If Me.cmbDate.Text.Length > 0 And Me.cmbMonth.Text.Length > 0 And Me.cmbYear.Text.Length > 0 Then
Me.btnReg.Enabled = True
Else : Me.btnReg.Enabled = False
End If
End If
End If
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Dim msgExit = MsgBox("You are about close this application, are you sure you want to exit?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Want to exit?")
If msgExit = vbYes Then
Me.Dispose()
End If
End Sub

Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim msgExit = MsgBox("You are about close this application, are you sure you want to exit?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Want to exit?")
If msgExit = vbYes Then
Me.Dispose()
Else : e.Cancel = True
End If
End Sub

Private Sub btnReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReg.Click
Dim gender, dob As String
If chkMale.Checked = True Then
gender = "Male"
Else : gender = "Female"
End If
dob = Me.cmbDate.Text & "/" & Me.cmbMonth.Text & "/" & Me.cmbYear.Text
Dim newRow, chkRow As databaseDataset.registrationRow
chkRow = DatabaseDataset1.registration.Rows.Find(Me.txtStud.Text)
If chkRow Is Nothing Then
newRow = DatabaseDataset1.registration.newRow
newRow.sname = Me.txtStud.Text
newRow.gender = gender
newRow.address = Me.txtAdd
newRow.dob = dob
newRow.email = Me.txtEmail
newRow.tel = Me.txtTel
DatabaseDataset1.registration.AddregistrationRow(newRow)
RegistrationTableAdapter1.Update(DatabaseDataset1)
MsgBox("Record successfully added to database.", MsgBoxStyle.Information, "Success")
Else : MsgBox("This student name already exists.", MsgBoxStyle.Information, "Faild to add")
End If
End Sub
End Class

 

[cking]

form 2ka 3ka ekakda? Uni wadakatada? mage gawath athi campus eke karapu ewa. PM karapan... if I can, I'll help u..