Örnek sonuçlar bir VBA formu

[carry]

Tekrar yardım istemek istiyorum ve şimdi bana yardım edecek olanlara teşekkür ediyorum.
Size tüm komutlarla bir çeşit örnek soruyorum, yani:
metin kutusu, combobox, liste kutusu, çekbox,optinbutton kaldırıldı amaton görüntüsü, çoklu sayfa vb. her komut için bir dize tipi değer geri dönmeliyim ya da (as I have already made in the attached project) with multi page command, I return an action in this case changes the value of the form.
Örneğin checkbox bana "s" veya "n" geri dönmeli, optinbutton'a eşit olmalıdır.
Metin kutusu bir değer olup olmadığını kontrol etmelidir, eğer varsa, değeri geri döndürür, aksi takdirde bunu talep etmeden önce.
Bir selamlamanın açık olmasını umuyorum.
taşıyabilir

 

[Shape]

Tekrar yardım istemek istiyorum ve şimdi bana yardım edecek olanlara teşekkür ediyorum.
Size tüm komutlarla bir çeşit örnek soruyorum, yani:
metin kutusu, combobox, liste kutusu, çekbox,optinbutton kaldırıldı amaton görüntüsü, çoklu sayfa vb. her komut için bir dize tipi değer geri dönmeliyim ya da (as I have already made in the attached project) with multi page command, I return an action in this case changes the value of the form.
Örneğin checkbox bana "s" veya "n" geri dönmeli, optinbutton'a eşit olmalıdır.
Metin kutusu bir değer olup olmadığını kontrol etmelidir, eğer varsa, değeri geri döndürür, aksi takdirde bunu talep etmeden önce.
Bir selamlamanın açık olmasını umuyorum.
taşıyabilir

Koda baktım ve ne yapmak istediğinizi anlamadım, çünkü combobox3 tanımlanmadı ve hata üretiyor.

cmq, bir combo object,option,list vs. için atan işlevi. Bu eylemlerle ilişkilendirilebilir


Aşağı menüdeki üst sağ menü

seçenek Button1_ afterupdate()

seçenek Button1_ beforedragover

seçenek Button1_ beforedroporpaste

seçenek Button1_ Beforeupdate

seçenek Button1_change()

seçenek Button1_Click()

seçenek Button1_dbl click(byval iptal as msforms.returnboolean)

seçenek Button1_enter()

seçenek Button

Örnek örnek örnek örnek örneği
Özel alt seçenekbutton1_change()
msgbox ("stato modificato")
Sonunda alt alt

 

[carry]

Şekil size ödediğiniz dikkat için teşekkür eder ve kullanılabilirliğiniz için.
Hatalardan özür dilerim ama buraya kopyalıyorum ve işe yarayan kodu bir araya getirmek zor. Ancak combobox3, combobox1 için duruyor.
Ne yapmak istiyorum (ve uzun zamandır çalışıyorum ve kısmen idare ettim)
lisp için va formlarını kullanmak.
Net'te, bir vsa değişkenini okuyan ve lisp'e değer veren putlisp işlevi, metin kutuları için ve combobox için kullanmak için "reuscito" dir.
Bu nedenle, çeşitli liste kutusu komutları, çekbox,optinbutton görüntüyü, çok sayfa vb. ile örnek bir form oluşturmak için vsa'yı kim bilirdim.
Bu yüzden onları lisp'e geçmek için bir dize değeri döndürürler.
Bunu yapabilmenin çok ilginç olduğunu düşünüyorum, çünkü bir örnek oluşturulursa, lisp'deki dcl sorunu aşılacaktır.
Tekrar kullanılabilirlik için teşekkür ederiz
Merhaba.

Bu, putlisp fonksiyonudur
Bu işlev yeni bir lisp sembolü ‘symbolname’ yaratır.
"Bu, "değer" tarafından belirtilen değeri alır.
sub putlisp(symbolname as string, değer as string)
dim sym as object
Eğer vl hiçbir şey değilse
set vl = createobject("vl.application.16" sayısına dikkat otomatik sürüm ile değişir.
Sonunda, eğer sona erirse
Set sym = vl.activedocument. functions.item ("read")funcall(symbolname)
vl.activedocument. functions.item("set). funcall sym, değer
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end

 

[carry]

Tam bir proje yuvası ekledim, dosya 3 değişken belirledi,
(setq *slotlong 200.0 *slot genişliği 100.0 *slot bok 0.0)
Bir form yuvasını açın, lisp'te belirlenen değerler ile metin kutularını açın, değerleri değiştirebileceğiniz formu açın, yeni değerlerin bir asola çizdiği lisp'e tıklayın.
Her şey yuva yükleme ile çalışır.lsp.
nb: Eğer bunu hatadan çok büyük bir çizim bölümünde kullanıyorsanız, asola'ya benzer boyutlarda zoom yapmanız gerekir.
Merhaba.

 

[Shape]

Tam bir proje yuvası ekledim, dosya 3 değişken belirledi, ....

Fikrinize ilginç

O zaman bazı testleri yaptım ve ilk başta sufficnete ekleme olduğunu fark ettim.

(setq osx (getvar "osmode")
(Setvar "osmode" 0)

Ve sonunda (setvar "osmode" osx)

Aktif snaps'e sahip olmak, vsa i.e. abnche'nin bile tithes'in ittiği noktalara verdiği hatayı ortaya çıkarırsa, snap'in magnet etkisi yapar ve her şeyi mile gider.

Bunu yaparsanız kontrol etmeye çalışın.

Sonra vsa'yı çalışmadım ama neden dosyayı bulamadım... Doğru yola girdim ve her şey çalışır. .

Beni affet, ne kastronata olduğunu söyledim ama ben ve lisp çok iyi gitmiyor :36_6_3:

Ancak, dcl yerine va formlarını kullanmanın bu fikri çok ilginç. En azından bu küçük uygulamalar için, belki de biraz daha karmaşık şeyler yönetmek zor olabilir.

Bu ile cmq problemsiz dönüyorum

(defun c:slot (/ diff ins p1 p2 p3 p4 slotcancel osx)
(princ "\nenter slot özellikleri ")(princ)
(Eğer (ya da değil) (daha uzun değil) (daha büyük değil)
(progn)
(setq *slotlong 200.0)
(setq *slot genişlik 100.0)
(setq *slot bok 0.0)
)
)
(vl-load-com)
(command "_-vbarun" "c:/percorso/slot.dvb!main")
(setq osx)
(set "smode" 0)(command "vbaunload" "c:/documents and settings/0603/my documents/download/slot.dvb")
(Eğer)
(If (setq ins (getpoint "\nspecify center of slot: "))
(progn
(setq diff (abs (- *slotlong *slot genişlik))
(If (> *slotlong *slot genişlik)
(progn
(setq p1 (polar ins pi (/ diff 2.0)))
(setq p1 (polar p1 (* pi 0,5) (/ *slot genişlik 2.0))
(setq p2 (polar p1 0 diff)
(setq p3 (polar p2 (* pi 1.5) *slot genişlik)
(setq p4 (polar p3 pi diff))
)
(progn
(setq p1 (polar ins (* pi 1.5) (/ diff 2.0)))
(setq p1 (polar p1 pi (/ *slotlong 2.0)))
(setq p2 (polar p1 (* pi 0,5) diff)
(setq p3 (polar p2 0 *slot Long)
(setq p4 (polar p3 (* pi 1.5) diff)
)
)
(= *slotlong *slot genişlik)

(command "_circle" ins "_d" *slot genişlik)
(command "_pline" p1 p2 "_a" p3 "_li" p4 "_a" p1 "_cl"
)
(command "_rotate" (entlast) "Ins *slot Fukushima)
(set "smode" osx))
)
)
(prince)
)

 

[carry]

Çok zor görmüyorum, bir combobox komutunu ve çok sayfa ekledim,
combo komut, değer ve mutipage ile değişken bir *combo1 döndürür.
(bu eksik) diğer komutları ekleme olasılığına ek olarak, formun boyutunu değiştirir.

Benim için tekrar ediyorum, her komut için bir lisp değişkeni geri dönen bir örnek formu oluşturmak ilginç olurdu.
Örneğin checkbox bana "s" veya "n" geri dönmeli, optinbutton'a eşit olmalıdır.
Örneğin (bulunma "slot.lsp") bu işe yaramıyor, bunu otomatik olarak gören yollarda kopyalamanız gerektiğini düşünüyorum.
şekli ( arzu ve zaman olduğu yollar) biraz faydalı bir şey yapabileceğinizi görür.
Merhaba.
taşıyabilir

 

[Shape]

İyi olup olmadığını bilmiyorum, ama bunun gibi bir şey önemsiyor musunuz?

 

[carry]

İyi anlıyorsunuz, bunun için çok teşekkür ederim, arzu ve zamanınızın diğer komutlarla devam etmesi ilginç olurdu.
Seni çok fazla sorduğumu biliyorum, ama dcl'in sınırlamalarından geçiyorsunuz.
merhaba ve tekrar teşekkürler
taşıyabilir

 

[Shape]

İyi anlıyorsunuz, bunun için çok teşekkür ederim, arzu ve zamanınızın diğer komutlarla devam etmesi ilginç olurdu.
Seni çok fazla sorduğumu biliyorum, ama dcl'in sınırlamalarından geçiyorsunuz.
merhaba ve tekrar teşekkürler
taşıyabilir

Yavaş kapalı, sonra zoom problemlerini çözdün mi?

 

[carry]

Yapıyoruz.