Click here to Skip to main content
15,926,281 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: ADO problem Pin
obarahmeh2-Dec-06 2:06
obarahmeh2-Dec-06 2:06 
AnswerRe: ADO problem Pin
Guffa2-Dec-06 8:45
Guffa2-Dec-06 8:45 
GeneralRe: ADO problem Pin
obarahmeh2-Dec-06 20:16
obarahmeh2-Dec-06 20:16 
GeneralRe: ADO problem Pin
Bassam Saoud2-Dec-06 9:20
Bassam Saoud2-Dec-06 9:20 
QuestionStrings Pin
Cedrickdeorange2-Dec-06 1:12
Cedrickdeorange2-Dec-06 1:12 
AnswerRe: Strings Pin
mr_lasseter2-Dec-06 4:57
mr_lasseter2-Dec-06 4:57 
AnswerRe: Strings Pin
Taylor Kobani4-Dec-06 1:10
Taylor Kobani4-Dec-06 1:10 
AnswerRe: Strings Pin
Nouvand8-Dec-06 2:15
Nouvand8-Dec-06 2:15 
Smile | :) 'Or you can try this.
--------------with comments-----------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text <> Nothing Then 'make sure the textbox value is exist.
Dim NameParts As String() = Split(Me.TextBox1.Text) 'split the name parts into an array.
Dim FullName As String = "" 'make a buffer to save the processed name parts.
Dim nMax As Integer = NameParts.GetUpperBound(0) 'number of name parts.
For i As Integer = 0 To nMax 'iterate through the element of name part array.
'Replace first character with upper case character on each elements.
NameParts(i) = Mid(NameParts(i), 1, 1).ToUpper & Mid(NameParts(i), 2).ToLower
FullName &= NameParts(i) & " " 'save into buffer.
Next
Dim xTrim As Integer = FullName.Length - 1 'count characther length in fullname
FullName = Mid(FullName, 1, xTrim) 'remove space character at the end of fullname.
Me.TextBox1.Text = FullName 'put the processed value back into textbox
End If
End Sub


--------------without comments-----------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text <> Nothing Then
Dim NameParts As String() = Split(Me.TextBox1.Text)
Dim FullName As String = ""
Dim nMax As Integer = NameParts.GetUpperBound(0)
For i As Integer = 0 To nMax
NameParts(i) = Mid(NameParts(i), 1, 1).ToUpper & Mid(NameParts(i), 2).ToLower
FullName &= NameParts(i) & " "
Next
Dim xTrim As Integer = FullName.Length - 1
FullName = Mid(FullName, 1, xTrim)
Me.TextBox1.Text = FullName
End If
End Sub
QuestionProblem with Progress Bar Pin
pathak781-Dec-06 19:49
pathak781-Dec-06 19:49 
AnswerRe: Problem with Progress Bar Pin
mr_lasseter2-Dec-06 4:55
mr_lasseter2-Dec-06 4:55 
AnswerRe: Problem with Progress Bar Pin
Taylor Kobani2-Dec-06 23:57
Taylor Kobani2-Dec-06 23:57 
AnswerRe: Problem with Progress Bar Pin
Dave Kreskowiak3-Dec-06 4:20
mveDave Kreskowiak3-Dec-06 4:20 
QuestionGmail integration in VB.net Pin
Brent Stringer1-Dec-06 18:27
Brent Stringer1-Dec-06 18:27 
AnswerRe: Gmail integration in VB.net Pin
Thomas Stockwell2-Dec-06 9:28
professionalThomas Stockwell2-Dec-06 9:28 
QuestionHow to reteive a table name in a database Pin
vincentkhoosiongleng1-Dec-06 15:17
vincentkhoosiongleng1-Dec-06 15:17 
AnswerRe: How to reteive a table name in a database Pin
Bassam Saoud2-Dec-06 1:35
Bassam Saoud2-Dec-06 1:35 
Questionbuilding desktop applicatin that aligns on top of desktop Pin
DEVILSAN1-Dec-06 13:52
DEVILSAN1-Dec-06 13:52 
AnswerRe: building desktop applicatin that aligns on top of desktop Pin
Are Jay2-Dec-06 16:35
Are Jay2-Dec-06 16:35 
QuestionWebClient.DownloadString() after POSTING data Pin
spelltwister1-Dec-06 13:47
spelltwister1-Dec-06 13:47 
Question[Message Deleted] Pin
alexrad1-Dec-06 12:56
alexrad1-Dec-06 12:56 
AnswerRe: EVENTS PROBLEM Pin
Dave Kreskowiak1-Dec-06 13:02
mveDave Kreskowiak1-Dec-06 13:02 
GeneralRe: EVENTS PROBLEM Pin
alexrad1-Dec-06 13:06
alexrad1-Dec-06 13:06 
GeneralRe: EVENTS PROBLEM Pin
Dave Kreskowiak1-Dec-06 13:21
mveDave Kreskowiak1-Dec-06 13:21 
GeneralRe: EVENTS PROBLEM Pin
alexrad1-Dec-06 13:25
alexrad1-Dec-06 13:25 
AnswerRe: EVENTS PROBLEM Pin
Dave Kreskowiak1-Dec-06 13:23
mveDave Kreskowiak1-Dec-06 13:23 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.