Görev çubuğuna kısa yol ikonu

[milhanalp]

Arkadaşlar merhaba,
BAsit bir yedekleme çalışması hazırladım. Bu çalışmamın, bilgisayar açıldığında Görev çubuğunda bir ikon olarak görünmesini ve gerektiğinde o ikona tıklayarak açılmasını sağlayabilirmiyiz.
Selamlar

 

[Haluk]

Aşağıdaki linkte böyle birşeylerle uğraşmıştım bir zamanlar ...

http://www.excel.web.tr/viewtopic.php?t=820

 

[milhanalp]

Sevgili Haluk,
Konu beni aşacak boyutlardaymış... En iyisi hiç karıştırmayayım.
Selam ve saygılarımla

 

[Haluk]

Ben biraz karıştırdım, ve aşağıdaki resimlerde görüldüğü gibi sizin istediğiniz şekle getirdim dosyanızı. :mrgreen:

UserForm'u simge durumuna küçülttüğünüz anda (UserForm'un başlık çubuğundaki düğmeden), kendisini ekranın sağ alt köşesindeki yere yerleştirir. Burada belirecek olan ikonun üzerinde fare ile sağ-klik yaptığınızda, resimde görülen menüler çıkacaktır.

 

[htsumer]

Ben biraz karıştırdım, ve aşağıdaki resimlerde görüldüğü gibi sizin istediğiniz şekle getirdim dosyanızı.

Yapar..yapar bilirim..İstenilen şekle değil istenilmeyen şekle bile getirir..Hatta tekiz dombalak bile attırır..Hehe
Bir ara benim ofisimde eeehhmmorrgj (Þekil olsa anlatırdım ama yazı ile bukadar anlatıyorum) şekle girmişti. :mrgreen:

 

[milhanalp]

Sayın htsumer
Alahın izniyle Sevgili Haluk arkadaşımızın excele

tekiz dombalak bile

attıracağından şüphemiz yok... Ne var ki onun hızına ,kapasitesine erişebilmemiz mümkün değil. Müslümanlığın altıncı şartı haddini bilmektir.

Sayın Haluk
Elimde kimin yaptığını unuttuğum, dolayısıyla şimdi ismen teşekkür edemediğim bir dostumuzun yazdığı kodlar var. Bu kodları görünce böyle bir fikir aklıma geldi. Sizin yaptığınız da benim işimi görür.

Private Sub CommandButton1_Click()
CreateIcon
End Sub
'
Private Sub CommandButton2_Click()
DeleteIcon
End Sub

Private Sub Form_Load()
Dim x As LOGFONT
'Picture1.AutoRedraw = True
acı = 270
boyut = 10
x.lfEscapement = acı * 10
x.lfHeight = (boyut * -20) / Screen.TwipsPerPixelY
rFont = CreateFontIndirect(x)
Call SelectObject(Picture1.hdc, rFont)
Picture1.CurrentX = Picture1.ScaleWidth / 2
Picture1.CurrentY = 0
Print "%100 90 80 70 60 50 40 30 20 10 0)"

End Sub

Private Sub UserForm_Initialize()
CreateIcon
End Sub
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
DeleteIcon
End Sub

Ancak ben işi biraz daha tembelliğe vurduğum için, dosya windows la başlasın istemiştim. Ama böyle de işimizi görüyor. İlginizi esirgemediğiniz için çok teşekkür ediyorum.
Selamlar

 

[Haluk]

....
...
Ancak ben işi biraz daha tembelliğe vurduğum için, dosya windows la başlasın istemiştim.
..

İlhan bey;

Dosyanın Windows ile beraber açılması işi, en kolayı.

Sözkonusu dosyayı veya herhangibir dosyayı, Windows'un StartUp klasörü içine yerleştirin ... yeter. (Ekli resimde görüldüğü gibi.)


Windows başlarken, dosya da açılacaktır.

 

[milhanalp]

Sevgili Haluk,
Cevabımı geciktirdiğim için özür dilerim. Mesajınızı yeni gördüm.
Çok teşekkür ediyorum.