Forum
Aktif konular
Üyeler
Kurallar
Arama
Textbox Yardımı. Textbox Yardımı.
-
multiline acıp o sekilde yapsan olmazmı :S
biraz hileli yap sende :D
sadece on tane gireceksen
on tane textbox koy:D
sen text 1 e veri girdip 2. satıra gecmek için enter kullanınca enter kodunu okusun tex2 ye gecsin orayada yazsssın
on tane yazdıktan sonra command1 e tıklarsın
text2 ninde multiline i true yap
sonra
text2.text = text3.text & " " & taki kullandıgın kac tane text kutusu varsa...
olabilitesi yuksek bi mantık:|
ben bi deniyim :|
-
dedğin gibi olur kardeşm. ama bi de şöyle düşün 100 tane girilcek sayım var. ben bunları tek tek seçip seçip textlere mi yapıştırcam ? :)) daha profosyonelce bi fikir çıkarr die bekliyorumm. =)
-
hocam nasıl yapabilirim diye düşündüm uğraştım 10-15 dk oldu ama buldum :D
2 tane textbox 1 tane command button ekliosn. textboxların multiline özelliği true olsun.
-------------------------
Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, vbNewLine, vbNewLine & " ")
End Sub-------------------------
text1 e yazdıklarını her satırın başına 10 boşluk koyarak text2 ye geçiriyor. ama ilk satır hariç :D
onun içinse
-----------------
Private Sub Command1_Click()
Text1.Text = vbNewLine & Text1.Text
Text2.Text = Replace(Text1.Text, vbNewLine, vbNewLine & " ")
End Sub----------------
olur. ilk satırda bi satır fazla onu da silince istediğin şekli alıyo. kolay gelsin (:
-
xz html deil vb kardeşim :) hem istediğim olay da bu deildi ama saol yinede
-
f1kr3t bunu yazdı:
-----------------------------hocam nasıl yapabilirim diye düşündüm uğraştım 10-15 dk oldu ama buldum :D
2 tane textbox 1 tane command button ekliosn. textboxların multiline özelliği true olsun.
-------------------------
Private Sub Command1_Click()
Text2.Text = Replace(Text1.Text, vbNewLine, vbNewLine & " ")
End Sub-------------------------
text1 e yazdıklarını her satırın başına 10 boşluk koyarak text2 ye geçiriyor. ama ilk satır hariç :D
onun içinse
-----------------
Private Sub Command1_Click()
Text1.Text = vbNewLine & Text1.Text
Text2.Text = Replace(Text1.Text, vbNewLine, vbNewLine & " ")
End Sub----------------
olur. ilk satırda bi satır fazla onu da silince istediğin şekli alıyo. kolay gelsin (:
-----------------------------saolasn kardeş çalıştı dediğin gibi bi tane satır atlıo ama yapıo. :) sana bşiy daha sorcam o konudada yardmcı olursan çok sevaba giRcen =) şimdi ben buna click yapınca text2e boşluklu şekilde alıo ya. bi de masaüstündeki xx.txt dosyasına o şekilde kaydedebilir mi ?? yada exceldeki bi satıra bunu yazdırabilirmiyim click'lediğimde ????
-
selam arkadaşım.. öncelikle bi özür borçluyum sana.. bi söz verdim sözümü tutamadım..
Ama büyük bi bahanem var.Dün bazı istenmeyen olaylar oldu..O yüzden birşey yapamadım.. Kusuruma bakma.. bi sorun olursa bana msn den ulaşabilirsin.. msn i istersen pm at yollarım..
diğer sorununu halletmişsin sanırm..
şu kayıt işini basitçe yapabilrisin..
Open "C:\deneme.txt" For Output As #1
Write #1, Text2
Close #1C de olan deneme.txt adlı dosyaya text2 yi kayıt ettir.. dosya olmasa bile kendisi oluşturur..son sorduğun bu mıu bilmiyorum.. koduna şu şekil yap..
Private Sub Command1_Click()
Text1.Text = vbNewLine & Text1.Text
Text2.Text = Replace(Text1.Text, vbNewLine, vbNewLine & " ")Open "C:\deneme.txt" For Output As #1
Write #1, Text2
Close #1
End Sub -
asagidakini aynen kopyala yap1st1r , 0 dan belirttigin sayiya kadar txtbox lara yazar
<html>
<head>
<title>Untitled</title>
</head><body>
<script>
function xz(){
var n=0;
if(document.f1.n.value!=""){
n=document.f1.n.value;
}else{
n=10;
}
for (i=1;i<=n;i=i+1)
{
document.f1.p1.value=document.f1.p1.value+i+String.fromCharCode(13);;
}document.f1.p2.value=document.f1.p1.value;
}</script>
<form name="f1" action="x.php" method="post">
<input type="text" name="n"><br>
<textarea name="p1" style="width:300;height:100"></textarea><br>
<textarea name="p2" style="width:300;height:100"></textarea><br>
<input type="button" value="SAY" onclick="xz()">
</form>
</body>
</html>
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla