Değişkeni tüm butonlarda kullanma

[xtrlife]

Arkadaşlar imacro kullanarak web uygulaması yapıyorum ancak mesela bir siteye bağlanıyor kullanıcı adı ve parolayı girip sorgu sonucunu aktarıyor ancak her sorgulamada bu işlemleri tekrar tekrar yapıyor 5 girişten sonra da bloke oluyor site ve sorgu gerçekleşmiyor, bu nedenle makroyu parçalara ayırdım siteye şifre girişi ile sorgulanan kısımları ayırdım ancak;

buton1.tikla
dim ime2, msge, ....

ime2.create(imacro)
...

şeklinde buton alışıyor ancak iki butonda da aynı değişkenler kullnılıyor. haliyle 2. ve 3. butonlara bastığımda imacro penceresi 1'den fazla açlılıyor ve makro işlemiyor. tüm butonlara aynı değişkenleri atamam ve 1 tane imacro açarak bunda işlem yapmam mümkün mü

mesela delphideki $dfm devamına tanımlayıp da değişkenleri tüm butonlarda vs kullanıyoruz ya onu istiyorum.

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anlamamakla birlikte eğer bir değişkeni tüm modüllerde kullanmak için onu Public olarak tanımlamak gerek.

Bir modülde bir Sub tan önce Public i as integer gibi bir tanım yapabilirsiniz

Bu durumda i değişkenini tüm modüllerde kullanabilirsiniz. Umarım isteğiniz budur.

 

[xtrlife]

sanırım epey karışık anlatmaya çalışmışım, ancak bahsettiğiniz işime yarayacak galiba bir deneyeyim. Dediğiniz gibi tüm buton (sanırım modül) larda aynı değişkenleri kullanmak istiyorum.

 

[xtrlife]

yapamadım hocam (Private yerine Public yazıyorum butonda)

0 Public Sub CommandButton2_Click()
1 Dim iim1, iret, totalrows

2 Set iim1 = CreateObject("imacros")
iret = iim1.iimInit
iret = iim1.iimPlay("baglan")

buradaki 1 ve 2. satırlar tüm uygulamada kullanılacak.

 

[Necdet]

Merhaba,

Ekteki dosyayı inceleyiniz. Bir ve Iki adlı procedur'ler var
Biri i değişkenine 5 atıyor

Iki adlı procedurde de bunu mesaj olarak veriyor.

Public tanımını inceleyiniz.

Public i As Integer

Sub Bir()
    i = 5
End Sub

Sub Iki()
MsgBox i
End Sub

 

[xtrlife]

Şimdi anladım teşekkür ederim sayın Necdet Yeşertener