Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic ipuçları » Uygulama İçinden çalışma klasörü bulma,Bir Başka Programı çalıştırma,Çalışan Programın bitişi
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Metin Fonksiyonları İle İlgili İşlemler

Yazar: togius
Bu örnekte bir kaç tane string fonksiyonuna değindim.



Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 1242
Yayın Tar:03.11.2004
Yazar : vsean
Hit :3550

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Uygulamanın Çalışma Klasörünü Bulmak / Değiştirmek
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias _
"GetCurrentDirectoryA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Private Sub Form_Paint()
Dim Klasor As String
Klasor = String(255, 0)
GetCurrentDirectory 255, Klasor ? Klasörü bulur
MsgBox Klasor
? SetCurrentDirectory App.Path ? Klasörü değiştirir

End Sub
-------------------------------------------------------------------------------
Shell - Uygulama İçerisinden Bir Başka Programı Çalıştırmak
Private Sub Command1_Click()
i = Shell("NotePad.Exe", 3) ? Notepad tüm ekranı kaplayacak
End Sub ? şekilde çalıştırılır



'Sabit Değer Açıklama
'vbHide 0 Pencere gizli ancak kontrol bu pencerededir.
'vbNormalFocus 1 Pencere normal pozisyonunda ve
' büyüklüğünde ve kontrol bu pencerededir
'vbMinimizedFocus 2 Pencere ikon halinde ve kontrol bu pencerededir
'vbMaximizedFocus 3 Pencere maximum boyutlarda ve kontrol bu pencerededir.
'vbMaximizedNotFocus 4 Pencere normal pozisyonunda ve büyüklüğünde
' ancak kontrol çağıran pencerededir
'
'vbMinimizedNoFocus 6 Pencere ikon halinde ve kontrol çağıran pencerededir
--------------------------------------------------------------------------------
Uygulama İçerisinden Çalıştırılan Programın Bitişini Beklemek
Function ShellAndWait(FileName As String)
Dim objScript
On Error GoTo ERR_OpenForEdit
Set objScript = CreateObject("WScript.Shell")
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
EXIT_OpenForEdit:
Exit Function
ERR_OpenForEdit:
MsgBox Err.Description
GoTo EXIT_OpenForEdit
End Function
Private Sub Command1_Click()
i = ShellAndWait("notepad.exe")
MsgBox "NotePad kapatıldı"
End Sub




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin