benim de merak ettiğim bi soru

ya programcı arkadaşlar bileniniz yok mu? yada byle bişey varmı? bi yol gsterseniz ben araştırdım bulamadım. Kayalardan kayarım yoktur benim ayarım (;

arkadaşlar ben herhangi bir exe'nin iconunu basic kodlarıyla alabilir miyim?mesela windows messenger'in iconunu picturebox'un içine atabilir miyim? Kayalardan kayarım yoktur benim ayarım (;

abi büyüksün yaa. çoookk teşekkür ederim. eline klavyene ve mouse'ne sağlık :)) Kayalardan kayarım yoktur benim ayarım (;

Formumuza 2 adet Label, 2 adet TextBox, 1 adet Picture, 1 adet CommandButton koyalım. Burda 1. textboxa hangi exe yada dll den alcağınız ikinci textbox a da dll içindeki kaçıncı icon olduğunu yazcaksınız. Bu işlemler ExtractIcon apisi ile yapılıyor. Aşağıdaki kodlarımızı formumuzun kod penceresine yapıştıralım. Private Declare Function ExtractIconEx Lib "shell32. dll" Alias "ExtractIconExA" As LongPrivate Declare Function DrawIcon Lib "user32" As LongPrivate Sub Command1_Click Call IconYukle(Picture1, Text1. Text, Text2. Text)End SubPublic Sub IconYukle lPictureBox. ClsDim icon As LongExtractIconEx lFileName, IconIndex, icon, ByVal 0&, 1DrawIcon lPictureBox. hdc, 0, 0, iconEnd SubPrivate Sub Form_Load Label1. Top = 120Label1. Left = 120Label1. AutoSize = TrueLabel1. Caption = "Dosya Adı:"Label2. Top = 480Label2. Left = 120Label2. AutoSize = TrueLabel2. Caption = "İcon İndexi:"Text1. Top = 120Text1. Left = 960Text1. Width = 2000Text1. Height = 285Text1. Text = "shell32. dll"Text2. Top = 480Text2. Left = 960Text2. Width = 2000Text2. Height = 285Text2. Text = 0Picture1. AutoRedraw = TruePicture1. Left = 3000Picture1. Top = 120Picture1. Width = 1000Picture1. Height = 1000Command1. Left = 120Command1. Top = 840Command1. Width = 2775Command1. Height = 400Command1. Caption = "İcon Yükle"Me. Width = 4185Me. Height = 1700End Sub hadi ordan seksi!