konu yanlış yere açılmış. lütfen doğru bölüme sorunuzu yazın

birlikte çalışacağımız arkadaşlara her zaman ihtiyacımız olur. fakat ilk önce okuyun lütfen

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

api tanımlamasını end sub dan sonra yapmışsınız. aşağıdakş kod - yani joker adminimin verdiği çalışıyor

Option Explicit

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Sub SetStartCaption(str As String)
   Dim StartBar As Long
   Dim StartBarText As Long
   Dim sCaption As String
   
   StartBar = FindWindow("Shell_TrayWnd", vbNullString)
   StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
   sCaption = Left(str, 6)
   SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption
   
   
   Exit Sub
   End Sub
Private Sub Command1_Click()
SetStartCaption Text1.Text
End Sub

ben konu ile alakalı bir proje hazırlayıp eklerim. fakat sizden ricam birçok değerli "YENİ ÜYEMİZ" gibi  " BUGÜN - YARIN" diyerek beni sıkıştırmayın. Forum yapılanması gereği ZATEN 10 mesaj altı olan üyelerimizi PEK de yanıtlamıyoruz. Fakat mesajlarınızdaki incelikten dolayı size yardımcı olmaya çalışacağım... saygılar

Yücel Bey;
Programlamada herşey mümkündür. Benim daha önce hazırladığım Web üzerindeki formları doldurmayla ilgili bir ders mevcut. bu dersleri inceleyin. web browser ile ktunnel.com isimli siteyi açın. bu site üzerinden ssk ya bağlandığınızda her seferinde (teorik olarak) dns ve ip niz değişeceği için doğrulama kodunu atlayabileceğinizi düşünüyorum. denemek lazım

formun iconunu değiştirerek program ikonunu değiştirebilirsiniz veya reshack programıyla değiştirebilirsiniz

Bu konu Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Visual Basic Hakkında Tüm sorunlarınız/Sorularınız?

isimli bölüme taşındı.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

paylaşımlarınız için teşekkürker +5 karma

Bu konu Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Geri Dönüşüm Kutusu

isimli bölüme taşındı.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

paylaşımlarınız için teşekkürler

Bu konu Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Visual Basic Hakkında Tüm sorunlarınız/Sorularınız?

isimli bölüme taşındı.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Bu konu Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Visual Basic.NET Hakkında Tüm sorunlarınız/Sorularınız?

isimli bölüme taşındı.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Teşekkürler

tüm paylaşımlarınız için Teşekkürler + 20 karma

Teşekkürler

link daha görünür yapıldı

evet load picture u değiştirmen yeterli

bu makalede bir not defteri içerisinde kaç kelime var onu bulacağız.Bu örnekle aynı zamanda nasıl filtreleme yapılır onu öğreneceğiz.

şimdi formumuza :

richtextbox1 (Bunu projects-components-Microsoft Rich Text Box Control 6.0 'ı aktif ederek koyuyoruz)

commondialog1(projects-components-Microsoft Common Dialog Control 6.0 'ı aktif edere koyuyoruz)

command1 ve command2 olmak üzere 2 adet buton

listbox1 adında list box

label1 adında birde etiket ekliyoruz....

form yüzeyindeki düzenlemeyi aşağıda resimdeki yaparsanız daha anlaşılır olacaktır...

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

şimdi kodlar aşağıda açıklandığı gibi :



Private Sub Command1_Click() 'command1 tıklandığında pencere açılıyor ve size seçim sunuyor
CommonDialog1.ShowOpen
RichTextBox1.LoadFile (CommonDialog1.FileName) 'Seçtiğiniz dosya text box 'ya yazılıyor
End Sub

Private Sub Command2_Click()

Data1 = RichTextBox1.Text ' kolay işlemek için text box verisi data1 değişkenine yazılıyor

For i = 1 To Len(Data1)  'döngü 1 den başlayarak data1 içerisindeki karakter uzunluğu kadar işlem yapacak

If Mid(Data1, i, 1) = " " Then 'veri içerisinde boşluklar aranıyor ve işlem yapılıyor
    If Trim(Data2) <> "" Then 'artık data2 içinde artık bir kelime oluştuysa list1 e ekleniyor
      List1.AddItem Data2
      Data2 = ""
    End If

Else
    If Mid(Data1, i, 1) <> " " Then  ' boşluk bulunmadıysa data2 değişkenine eknerek bir kelime oluşturuluyor
      Data2 = Data2 & Mid(Data1, i, 1)
    End If
End If
Next i

Label1.Caption = List1.ListCount 'tüm işlem tamamlandığında label1'e kaç adet kelime oluşturulduğu yazılıyor...
End Sub

Proje geliştiren arkadaşların takıldığı konularda iyi bir fikir olacağını düşünüyorum...



Kaynak=vbturk ,Murat PALACI

a.s. Türk Programlama forumları ve siteleri arasından çok kısa sürede sıyrılmanın gururunu yaşıyoruz. Ana konusu programlama olan bir sitenin günde 9000 - 10000 hit alması yaptıklarımızın doğru olduğunu gösteriyor. fakat daha çok yolumuz var. bu uzun ve yorucu yolculukta tüm üyelerimizin desteğine ihtiyacımız var. forumumuz yeni bir yapılanma içerisine giriyor. bu yeni dönemimizde sizleri de aramızda görmekten mutluyuz

Bu konu Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Visual Basic Hakkında Tüm sorunlarınız/Sorularınız?

isimli bölüme taşındı.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

1. 10 mesaj altı üyelerin sorularının cevaplanması uzun bir zaman alır
2. soru yanlış yere açılmış. forumumuzu halen tanımıyorsunuz demekki
3. verdiğimiz tüm kodlar çalışır durumdadır. bazı kodlar "EĞİTİM" amaçlı olduğu için bazı zararlı kodlar değişmiş olabilir
4.klasör arayan,içeriğini temizleyen kodlar ayrı ayrı mevcut forumda

sizin açtığınız konu birkaç kişi tarafınan silinebilir. adminler, mod ve siz. çok enteresan. bizler pek üye mesajlarını silmeyiz. sanırım bir hata olmuştur. cevabımın geç kalma nedeni bu sorunuzun cevabını proje olarak vermekti. fakat winrar ın msdos ortamındaki çalışma zamanı sorunlarının çözümü epeyce vaktimi alıyor. sizi fazla bekletmeden cevabı vereyim o zaman:

winrar klasörü içindeki unrar.exe projeye gömülür. program açıldığında system32 klasörü içine atılır. drivebox,dirbox ve file box eklenen projeye(ister butona ister file click olayına)

Shell "Unrar.exe x " & Drive1.Drive & "\" & File1.List(File1.ListIndex)

komutu verilir


rar içerisindeki dosyaları app.path a çıkarıyor. çıkarılacak yerin belirlenmesi için dosya adlarının 6 karakterle sınırlandırılıp sonuna "~1" eklenmesi gerek. örneğin:

c:\WINDOWS\system32\1031 olan dosya yolunun

c:\WINDOW~1\system\1031\ olması gerek yoksa istenen dosyaya çıkış sağlanamıyor. bunun yapılması tabiki mümkün fakat biraz zaman alacak

Bu konu Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Visual Basic Hakkında Tüm sorunlarınız/Sorularınız?

isimli bölüme taşındı.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

10 numara paylaşım olmuş çok teşekkürler +15 karma

linklerde bir sorun görünmüyor

linki daha GÖRÜNÜR yaptım

CMD ile yapabiliriz. akşama tam komutları yazarım

döngüyü timer a yazın. butona basınca timer çalışsın. bırakınca timer dursun. örneğin:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "timer aktif"
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "timer durdu"
End Sub

Paylaşımınız için teşekkürler. Ben şahsen Progressbar ı işlemler yapıldıkça ilerletmeyi daha uygun buluyorum. şöyleki

örneğin bir dosya üzerinde birkaç işlem yapılacak. kullanıcının beklemesi gerek

ilk işlem yapılır
progressbar value + eklenir (mesela 10)

2. işlem yapılır
progressbar value + eklenir.

progressbarın mantığı bu gibi geliyor bana

örnek kod... tabi siz bu şekilde timer falan kullanmayacaksınız

Option Explicit


Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Label1.Caption = "ilk işlem"
ProgressBar1.Value = ProgressBar1.Value + 10
Timer1.Interval = 1500
Timer2.Interval = 2500

End Sub

Private Sub Timer1_Timer()
If Label1.Caption = "ilk işlem" Then
Label1.Caption = "2. işlem"
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = "2. işlem" Then
Label1.Caption = "son işlem"
ProgressBar1.Value = ProgressBar1.Max
MsgBox "İşlem Tamamlandı", , "mayhemious"
End If
End Sub

wm.URL = "Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap"

bu komut sorunsuz fakat codeclere bağlı olarak youtube vb. sitelerdeki flash tabanlı videoları göstermek biraz problem