menü ekleme kodunda hata

[AKTAY27]

merhaba arkadaşlar

yine bu siteden faydalanarak aldığım menü ekelme kodunu benim bilgisayarımda kenmime uyarladım çok güzel çalışıyor ama başka bilgisayarda açmaya çalıştığım zaman hata veriyor. nedeni ne olabilir acaba

'---------------------------------------------------------------
Public Declare Function CreateMenu Lib "user32" () As Long

Public Declare Function CreatePopupMenu Lib "user32" () As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Public Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long

Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" ( _
ByVal hMenu As Long, _
ByVal wFlags As Long, _
ByVal wIDNewItem As Long, _
ByVal lpNewItem As String) _
As Long

Public Declare Function SetMenu Lib "user32" _
(ByVal hWnd As Long, ByVal hMenu As Long) As Long

Public Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long

Public Declare Function GetSubMenu Lib "user32" ( _
ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function SetMenuItemBitmaps Lib "user32" ( _
ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, _
ByVal hBitmapChecked As Long) As Long

Public Const MF_SEPARATOR As Long = &H800&
Public Const MF_POPUP = &H10
Public Const MF_STRING = &H0
Public Const MF_BYPOSITION = &H400&
Public g_hMenu As Long
Public g_hForm As Long
'------------------------------------------------------------------------------------
Public Sub CreateAPIMenu() 'MENÜ EKLEME CODU
g_hMenu = CreateMenu()
Rt = SetMenu(g_hForm, g_hMenu)
X = CreateMenu()
AppendMenu g_hMenu, MF_POPUP, X, "İşlemler"
AppendMenu X, MF_STRING, 15, "Kaydet"
AppendMenu X, MF_STRING, 1, "Personel Kayıt Formu"
AppendMenu X, MF_STRING, 3, "Kayıt Bul"

x1 = CreateMenu()
AppendMenu X, MF_POPUP, x1, "Personel Dağılım Listesi"
AppendMenu x1, MF_STRING, 5, "1. Personel Durum Çizelgesi"
AppendMenu x1, MF_STRING, 6, "2. Aktif Personel Listesi"
AppendMenu x1, MF_STRING, 10, "3. İşe Giren Personel Listesi"
AppendMenu x1, MF_STRING, 9, "4. İşten Çıkan Personel Listesi"
AppendMenu x1, MF_STRING, 7, "5. Çalışma Durumu Personel Listesi"
AppendMenu x1, MF_STRING, 11, "6. Görev Yerine Göre Personel Listesi"
AppendMenu x1, MF_STRING, 8, "7. Özlük Bilgi Formu Çıktısı"
AppendMenu x1, MF_STRING, 2, "8. Personel Çalışma Durumu Listesi"

AppendMenu X, MF_SEPARATOR, 99, ""
AppendMenu X, MF_STRING, 4, "Parametreler"
AppendMenu X, MF_STRING, 13, "Excele Dön"

AppendMenu X, MF_SEPARATOR, 99, ""
AppendMenu X, MF_STRING, 12, "Bakım Yap"
AppendMenu X, MF_SEPARATOR, 99, ""
AppendMenu X, MF_STRING, 14, "Programdan Çık"


AppendMenu g_hMenu, MF_STRING, 99, "Hakkında"

End Sub

'------------------------------------------------------------

 

[AKTAY27]

arkadaşlar cevap alabilceğim kimse yokmu

 

[Skorpiyon]

Sayın AKTAY27,

Public Sub CreateAPIMenu() 'MENÜ EKLEME CODU
g_hMenu = CreateMenu()
Rt = SetMenu(g_hForm, g_hMenu)
X = CreateMenu()

Menu oluşturma konusunda çok fazla bilgim yok ama gördüğüm,

Hata aldığınız kırmızı satırda, g_hMenu'yü (hemen bir üst satırda) tanımlamışsınız ama g_hForm tanımlanmamış görünüyor.

 

[AKTAY27]

Sayin Sertkaya İlgİnİz İÇİn TeŞekkÜr Ederİm
Yukaridakİ Kodlar Benİm Bİlgİsayarimda DÜzgÜn Bİr Şekİlde ÇaliŞiyor Ama BaŞka Bİlgİsayara AÇmak İstedİĞİm Zaman Hata Verİyor Nedenİnİ ÖĞrenmek İstİyorum.

 

[Levent Menteşoğlu]

Her iki bilgisayarın işletim sistemi aynımı?

 

[Haluk]

Kodları aldığınız dosyayı iyice inceleyin veya alternatif olarak aşağıdaki linke tıklayın....

http://www.mrexcel.com/forum/showpost.php?p=482835&postcount=4

 

[Haluk]

Başka bir alternatif olarak da ekli dosyayı inceleyebilirsiniz, burada herhangibir API kullanılmadığı için problem çıkacağını sanmıyorum.....


.

 

[AKTAY27]

sayın leventm ilginize teşekkür ederim işletim sistemleri aynı değil ama farklı bir çalışma yaptığım zaman aynı menü ekleme kodları kullanıyorum onu açıyor personel özlük prg. diye personel uygulamalarında dosya eklemiştim arkadaşlara paylaşmak için bende mükemmel çalışıyor ama başka bilgisayarda çalışmıyor bir türlü sorunu çözemedim sizden ricam programı indirip bakarmısınız bu hazırlanmış olan programda sizinde çok emeğiniz var. teşekkürler

 

[AKTAY27]

sayın haluk
sizinde ilginize teşekkür ederim. menü ekleme kodunu sizin paylaşımınızdan almıştım ve sayenizde excele hakkında bildiklerime bir yenisi daha eklendi . problemin kaynağı personel uygulamaları bölümüne personel özlük prg. adı altında dosya açtım indirip bakarsanız sevinirim. ilginiz ve katkınızdan dolayı teşekkürler. saygılar

 

[AKTAY27]

hata veren dosyayı gönderiyorum. teşekkürler

 

[AKTAY27]

hadi arkadaşlar bir el atında çözelim şu problemi
diğer taraftan hatanın çözümünü bekleyenler var