listbox boşluk

[bunalthe]

listbox içersine :

TÜRKİYE
TÜRKİY
TÜRKİ
TÜRK
TÜR
TÜ
T YAZDIRDIM FAKAT BU OLAYIN TAM TERSİNİ YAPAMADIM YANİ:

TÜRKİYE
ÜRKİYE
RKİYE
KİYE
İYE
YE
E

YAPTIM AMA BU SEKİLDE LİSTBOX UN SAGINA YASLAYAMADIM NASIL YAPABİLİRİM???

[Revlis]

sanırım istediğin :

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
    Call SetWindowLong(List1.hwnd, (-20), GetWindowLong(List1.hwnd, (-20)) Or &H1000)
End Sub

[bunalthe]

List1.hwnd sözdizimlerinde Error 1 Name 'List1' is not declared. hatasını veriyor?

[Revlis]

listbox ının adı ne ise onu yazacaksın list1. yerine
ayrıca .net mi o ?

[bunalthe]

evet .net de
listbox1 adı ona da hata verdi

[bunalthe]

ok hallettim.space fonksiyonu ile :

For i = 0 To u - 1
s2 = Microsoft.VisualBasic.Left(s, x - i) & space(i+i+i) & Microsoft.VisualBasic.Right(s, x - i)
ListBox1.Items.Add(s2)

[Revlis]

vb2005 kodu

Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
	
	Private Declare Function SetWindowLong Lib "user32"  Alias "SetWindowLongA"(ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
	Private Declare Function GetWindowLong Lib "user32"  Alias "GetWindowLongA"(ByVal hwnd As Integer, ByVal nIndex As Integer) As Integer
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Call SetWindowLong(List1.Handle.ToInt32, -20, GetWindowLong(List1.Handle.ToInt32, -20) Or &H1000S)
	End Sub
End Class

listbox ın adı list1 ve hiç problem yok. istersen complie eder yollarım

[Revlis]

bunalthe:'(, mesajından alıntı:

ok hallettim.space fonksiyonu ile :

For i = 0 To u - 1
s2 = Microsoft.VisualBasic.Left(s, x - i) & space(i+i+i) & Microsoft.VisualBasic.Right(s, x - i)
ListBox1.Items.Add(s2)

basit düşünürsen mantıklı.. ama Görüntü ve mantık olarak benim yöntem daha iyi.

[bunalthe]

çalışmiyür çalışmiyür..:P benim yaptıım yol daha kısa ama ben yazdıgın kod satırlarının anlamını bilmiyorum sanal bi kitap önerebilirmisin bu tür fonksiyonların oldugu?2005.net

[bunalthe]

bi de ben linkini vermiş olduun elektronikhobi sitesinde
aradıımı bulamadım vb.net port kodları ile ilgili baska nereden bilgi edinebilirim=?