Menu:

  Visual Studio 2022 Preview 2.1 ve Gelen Yenilikler
 WebMatrix ile Web Sitelerini Oluşturun, Özelleştirin ve Yayınlayın
 Visual Studio 2011 Developer Preview
 Asp Net Dökümanı
 Programlama E-Kitap-3
 Programlama E-Kitap-2

Sitede hangi programlama dillerini görmek istersiniz.


                                  
 Kullanılan Oy: 1307                 
Sonuçları Göster



ABDULKADİR diyorki:

access veri tabanından qr kod ile sorgulama yaparak kişi bilgilerini nasıl çekebiliriz

devamı için tıkla


Gokhan Yıldırım diyorki:

hocam merhaba, gelen Container.DataItem 'mı 2 ye ayırmak istesek yani küçük ve büyük resim olarak 2...

devamı için tıkla
Turgay diyorki:

Hocam öncelikle teşekkürler makale için,peki bu seçtiğimiz nesnelerin hepsini silmek istersek nasıl ...

devamı için tıkla

Tüm Yorumlar »

Tags-Etiketler

Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...


 [ ters ] /  Makaleler-Article(s)


ters ile ilgili toplam 1 makale bulundu !
(A total of 1 article(s) about ters was(were) found in all of articles!)


Article

TextBox a Girilen Yazıyı Tersten Yazdırma


Formunuza 1 adet Label, Textbox ve Button ekleyin. Textbox a girilecek text i tersten yazdıracağız. Aşağıdaki şekili inceleyiniz. Public Class Form1 Dim degistir As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TerstenYazdirma As String Dim Say As Integer baslangic: degistir = degistir + 1 If Len(TextBox1.Text) = 0 Then MsgBox("Lütfen Yazı Giriniz...") degistir = 0 Exit Sub End If Select Case degistir Case 1 For Say = 0 To Len(TextBox1.Text) - 1 TerstenYazdirma = TerstenYazdirma + Mid(TextBox1.Text, Len(TextBox1.Text) - Say, 1) Next Label1.Text = TerstenYazdirma Button1.Text = "Normal Yazdır" Case 2 Label1.Text = TextBox1.Text Button1.Text = "Tersten Yazdır" Case Is > 2 degistir = 0 GoTo baslangic End Select End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "Ters-Düz Yazdırma" Me.MaximizeBox = False Me.Width = 180 Me.Height = 144 Me.Left = 300 Me.Top = 180 Label1.Text = "Girilen Yazıyı Tersten Yazdırma" Button1.Text = "Tersten Yazdır" Button1.Size = New System.Drawing.Size(150, 30) TextBox1.Size = New System.Drawing.Size(150, 30) End Sub End Class Bir sonraki makalede görüşmek üzere. Bahadır
 
                                        Son Makaleler

        Sitede yayınlanan makaleleri Blog sitemizden de takip edebilirsiniz. Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.

Web hosting by Somee.com