Visual Basic Acil Kod Lazım

D

DBH

Katılımcı Üye
17 Tem 2013
261
0
Visual Basic 6 Kullanıyorum .

Programın Butonuna tıklayınca otomatik eset gibi yani sembol oluşturmasını icon haline gelip küçülmesini istiyoruM Kodu nedir ?


2. Sorunum yaptığım exeyi bi klasöre attığım zaman O klasördeki bir dosyayı çalıştırma komutu nasıl veririm bu da butona eklenicek Bunların kodları nelerdir ???

Nasıl Bir Programcı Bunlar Ya Neredeyse Tüm programcılardan yardım istedim kimse bi cevap bile verme gereği duymadı Bunlar ne amaçla burda yardım etmek için Burda değillermi

Neymiş Programcılar Arge Tim Hepsi Bi sorun çıktığı zaman Biz Açık olduğumuz sürece Yardım Ediyoruz Diyorlar.

Ben nezaman mesaj atsam ziyrtçi mesajı bıraksam Siliyosunuz yada takmıyosunuz Ama Açıksınız.

Sözde değil Özünüzde doğru olun Ya anlamadığım şey sorunumu çözebilecek bilgiye sahip değilsindir Eyv. Ama bi cevap vermektende acizsen ben artık hiçbişey demiyorum.
 
Son düzenleme:
Tarihe göre sırala Oylara göre sırala
D

DBH

Katılımcı Üye
17 Tem 2013
261
0
Nasıl Bir Programcı Bunlar Ya Neredeyse Tüm programcılardan yardım istedim kimse bi cevap bile verme gereği duymadı Bunlar ne amaçla burda yardım etmek için Burda değillermi

Neymiş Programcılar Arge Tim Hepsi Bi sorun çıktığı zaman Biz Açık olduğumuz sürece Yardım Ediyoruz Diyorlar.

Ben nezaman mesaj atsam ziyrtçi mesajı bıraksam Siliyosunuz yada takmıyosunuz Ama Açıksınız.

Sözde değil Özünüzde doğru olun Ya anlamadığım şey sorunumu çözebilecek bilgiye sahip değilsindir Eyv. Ama bi cevap vermektende acizsen ben artık hiçbişey demiyorum.
 
Oyla 0 Downvote
S

Splitter

Ziyaretçi
İlk olay systray evet ama ben ona systraya hiç gerek duymadığım için aklımda yok arşivde var öle gereksizlerde sürünüyor :)

Kendi methodlarımı geliştiririm systray gereksiz bence.

2. dediğinde çok basit kod
Shell App.path & "/patlıcan.exe" ' Aynı dizinde olmak şartıyla. Aynı klasör veya dizinde patlıcan.exe olması gerekmekte.
 
Oyla 0 Downvote
ahmetbslk

ahmetbslk

Uzman üye
20 Tem 2013
1,235
0
Sakarya
Bu kodu herhangi bir yere yapıştır Form_Load'a değil
Kod: 
Option Explicit
Private Type NOTIFYICONDATA
cbboyutu As Long
hWnd As Long
uld As Long
iconumuz As Long
gerimesaj As Long
gorunenikon As Long
ahmetbslk As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
Dim a As Long


Bir tane picturBox ekle

Kod: 
Private Sub Form_Load()
t.cbboyutu = Len(t)
t.hWnd = Picture1.hWnd
t.uld = 1&
t.iconumuz = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.gerimesaj = WM_MOUSEMOVE
t.gorunenikon = Me.Icon
t.ahmetbslk = "TurkHackTeam.NeT ahmetbslk" & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
Me.Hide
App.TaskVisible = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Shell_NotifyIcon NIM_DELETE, t
End Sub




Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static rec As Boolean, msg As Long
msg = X / Screen.TwipsPerPixelX
If rec = False Then
rec = True
Select Case msg
Case WM_LBUTTONDBLCLK:
MsgBox ("Farenin Sol tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız o kodu yapıştır")

Case WM_RBUTTONDOWN:
MsgBox ("Farenin Sağ tuşuna Tıklandı Siz Buraya sağ tuşuna tıkladığınızda ne olmasını istiyorsanız  o kodu yapıştır")


End Select
rec = False
End If
End Sub


Bunları yap olacaktır.
Notify İcon demek istemişsin aslında sen.


 
Oyla 0 Downvote
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.