Keskustelu: Ohjelmointikysymykset: VB6: .NET mene riville & muutama muu pikku ongelma

'KRYPTAA
		Private Sub mnuKryptaa_Click(sender As System.Object, e As System.EventArgs)
			Try
				avain = InputBox( _
				"Anna salauskoodi. Huomaa, että jos unohdat salauskoodin, tekstin salausta ei voi enää purkaa. Koodin on oltava luku.","Salakirjoittaminen")
				If avain="" Then Exit Sub
				koodi = CShort(avain)
			Catch
				MessageBox.Show("Epäkelpo salauskoodi.")
				Exit Sub
			End Try
			For i=0 To rtbMain.Text.Length - 1
				kirjain = rtbMain.Text.SubString(i,1)
				teksti &= Asc(kirjain) Xor koodi
			Next
			rtbMain.Text = teksti
		End Sub

'PURA KRYPTAUS
		Private Sub mnuDekryptaa_Click(sender As System.Object, e As System.EventArgs)
			Dim numero As Short
			Dim ch As Char
			Try
				avain = InputBox( _
				"Anna salauskoodi, jolla teksti on salattu. Koodin on oltava luku.", "Salakirjoituksen purku")
				If avain = "" Then Exit Sub
				koodi=CShort(avain)
			Catch
				MsgBox("Epäkelpo salauskoodi.")
				Exit Sub
			End Try

			'Tämä ei ole kyllä vuorenvarma, mutta kuka nyt numeroita haluaa kryptata :P
If Not IsNumeric (rtbMain.Text.SubString(i,1)) Then
				MsgBox("Tekstin pitää ensin olla salakirjoitettu!")
				Exit Sub
			End If
			'Itse purku
			For i=0 To rtbMain.Text.Length - 1
				numero = rtbMain.Text.SubString(i,1)
				ch = Chr(numero Xor koodi)
				teksti &= ch
			Next
			rtbMain.Text = teksti
		End Sub

'*** turha rivi jotta putka näyttäisi paremmin
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private Const EM_GETLINECOUNT As Integer = &HBA
    Private Const EM_LINESCROLL As Integer = &HB6
    Private Const EM_GETFIRSTVISIBLELINE As Integer = &HCE

    Private Sub ScrollaaRiville(ByVal Rivi As Integer, ByVal Kahva As IntPtr)
        Dim NKohta As Integer
        'Suora komento ei ole mahdollista joten,
        'Ensin selvitetään millä rivillä controlli on nyt
        NKohta = SendMessage(Kahva, EM_GETFIRSTVISIBLELINE, 0, 0)
        'Nyt voidaan laskea pitääkö scrollata ylöspäin vai alaspäin ja minkä verran
        Rivi = Rivi - NKohta
        SendMessage(Kahva, EM_LINESCROLL, 0, Rivi) '0 = ei vertical scrollausta
    End Sub

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Dim Rivi As Integer
        Rivi = CInt(100 * Rnd())
        'Esimerkki
        ScrollaaRiville(Rivi, RichTextBox1.Handle)
        Form1.ActiveForm.Text = CStr(Rivi)
    End Sub

Dim avain, teksti As String
		Dim koodi, i, numero As Short
		Dim kirjain As Char

'PURA KRYPTAUS
		Private Sub mnuDekryptaa_Click(sender As System.Object, e As System.EventArgs)
			Try
				avain = InputBox( _
				"Anna salauskoodi, jolla teksti on salattu. Koodin on oltava luku.", "Salakirjoituksen purku")
				If avain = "" Then Exit Sub
				koodi=CShort(avain)
			Catch
				MsgBox("Epäkelpo salauskoodi.")
				Exit Sub
			End Try

			If Not IsNumeric (rtbMain.Text.SubString(i,1)) Then
				MsgBox("Tekstin pitää ensin olla salakirjoitettu!")
				Exit Sub
			End If
			'Itse purku
			For i=0 To rtbMain.Text.Length - 1
				numero = rtbMain.Text.SubString(i,1)
				kirjain = Chr(numero Xor koodi)
				teksti &= kirjain
			Next
			rtbMain.Text = teksti
		End Sub