hscrollbar ve ucase

[bunalthe]

bir timer nesnemiz var ve bu timer nesnesinin zamanı ilerledikçe hscrollbar da ilerleyecek ve textbox1 içerisindeki string deişkenin karakterlerini sırasıyla küçükse büyüğe byük ise küçüğe çevirecek ve bu hscrollbar bir birim atladığında bir karakter için büyütme veya küçültme olacak..kafam çok karıstı napabilirim?(studio.net 2005 vbasic )

[Revlis]

...

[bunalthe]

eyvallah..bekliorum

[bunalthe]

PublicClass Form
Dim i AsInteger
Dim harf AsString
PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Len(TextBox1.Text) = 0 Then
ExitSub
TextBox2.Text = ""
If i = 0 Or i > Len(TextBox1.Text) Then
i = 1
harf = Mid(TextBox1.Text, i, 1)
TextBox2.Text = LCase(Microsoft.VisualBasic.Left(TextBox1.Text, i - 1)) + UCase(harf) + LCase(Mid(TextBox1.Text, i + 1))
i = i + 1
EndIf
EndIf
EndSub
PrivateSub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Timer1.Enabled = True
HScrollBar1.Enabled = True
HScrollBar1.Maximum = 500
HScrollBar1.Minimum = 10
HScrollBar1.SmallChange = 5
HScrollBar1.LargeChange = 20
EndSub
PrivateSub HScrollBar1_change(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Timer1.Interval = HScrollBar1.Value
EndSub
EndClass
Bu kodlar var elimde ama eksik...neresi eksik anlayamadım=?????

[Revlis]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        HScrollBar1.SmallChange = 1
        HScrollBar1.LargeChange = 1
        HScrollBar1.Maximum = 0
        HScrollBar1.Enabled = TextBox1.Text.Length
        Timer1.Enabled = True
        Timer1.Interval = 1000

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        
        HScrollBar1.Maximum = TextBox1.Text.Length - 1
        HScrollBar1.Enabled = TextBox1.Text.Length

    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If HScrollBar1.Enabled Then
            If HScrollBar1.Value = HScrollBar1.Maximum Then HScrollBar1.Value = 0

            HScrollBar1.Value += 1

        End If

    End Sub

    Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged

        Dim metin() As Char = TextBox1.Text.ToCharArray


        If metin(HScrollBar1.Value).ToString.ToUpper = metin(HScrollBar1.Value).ToString Then

            metin(HScrollBar1.Value) = metin(HScrollBar1.Value).ToString.ToLower
        Else
            metin(HScrollBar1.Value) = metin(HScrollBar1.Value).ToString.ToUpper
        End If

        Dim yazi As New String(metin)

        TextBox1.Text = yazi
        TextBox1.SelectionStart = TextBox1.Text.Length


    End Sub
End Class

http://rafb.net/p/oKQY4F23.html
byte array ile daha hızlı çalışan bir kod üretilebilir ama o zaman türkçe karakterler ile boğuşmak gerekiyor. O yüzden char array kullandım

[bunalthe]

If HScrollBar1.Enabled Then
If HScrollBar1.Value = HScrollBar1.Maximum Then HScrollBar1.Value = 0

HScrollBar1.Value += 1

End If

satırında hata verdi ve ilk karakteri textboxa girdiimde program kapanıp hata veriyor=?

[Revlis]

    Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        HScrollBar1.SmallChange = 1
        HScrollBar1.LargeChange = 1
        HScrollBar1.Maximum = 0
        HScrollBar1.Enabled = TextBox1.Text.Length
        Timer1.Enabled = True
        Timer1.Interval = 1000

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        
        HScrollBar1.Maximum = TextBox1.Text.Length - 1
        HScrollBar1.Enabled = TextBox1.Text.Length

    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If HScrollBar1.Maximum > 0 Then
            If HScrollBar1.Enabled Then

                If HScrollBar1.Value = HScrollBar1.Maximum Then HScrollBar1.Value = 0

                HScrollBar1.Value += 1

            End If
        End If


    End Sub

    Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged

        Dim metin() As Char = TextBox1.Text.ToCharArray

        If HScrollBar1.Value >= 0 Then
            If metin(HScrollBar1.Value).ToString.ToUpper = metin(HScrollBar1.Value).ToString Then

                metin(HScrollBar1.Value) = metin(HScrollBar1.Value).ToString.ToLower
            Else
                metin(HScrollBar1.Value) = metin(HScrollBar1.Value).ToString.ToUpper
            End If

            Dim yazi As New String(metin)

            TextBox1.Text = yazi
            TextBox1.SelectionStart = TextBox1.Text.Length

        End If

    End Sub
End Class

http://rafb.net/p/vm9rRz42.html
bende textbox ilk başta doluydu. pardon

[Revlis]

oldu mu olmadı mı ?

[bunalthe]

kusra kalma o anda acil cıkmak durumunda
kaldım
ama
kodlar işe yaradı cok tesekür edrim eywallah!!!!