Tworze nowy arkusz i gdzies na nim chce narysowac buttona
i podpiąc cos pod jego OnClick
Arkusza wczesniej nie mam. Tworze go na żądanie.
Utwórz moduł klasy (menu Insert -Class module) i w nim wpisz:
Public WithEvents btnPrzycisk As MSForms.CommandButton
Private Sub btnPrzycisk_Click()
MsgBox "Kliknięto"
End Sub
Możesz także dodać inne zdarzenia.
Następnie na początku standartowego modułu (jeśli go posiadasz) lub w module
ThisWorkbook ns samej górze w sekcji "Deklaration" wpisujesz:
Dim a As New Class1
A przykładowy kod stworzenia nowego arkusza i dodania przycisku masz
poniżej:
Sub Jeden()
Dim wsh As Worksheet
Set wsh = ActiveWorkbook.Worksheets.Add
Set a.btnPrzycisk = wsh.OLEObjects.Add _
(ClassType:="Forms.CommandButton.1", _
Left:=155.25, _
Top:=53.25, _
Width:=84.75, _
Height:=27).Object
a.btnPrzycisk.Caption = "Kliknij mnie!"
End Sub
Oczywiście musisz mieć w Referencjach odwołanie do biblioteki: "Microsoft
Forms 2.0 Object Library".
No wlasnie jak to zrobic?? Mamy excel'a i w nim formularz z polami. Ja chce
zeby dane z konkretnych kilku pol lub z konkretnej jednej zmiennej byly
kopiowane do schowka, zeby pozniej w innej aplikacji mozna bylo uzyc ctrl+V
do wklejenia. Jak to zrobic? Jak skopiowac zawartosc zmiennej do schowka??
Uzyj obiektu DataObject.
Przyklad:
Dim tekst As String
Dim datOb As New DataObject
tekst= TextBox1.Value & TexBox2.Value
datOb.SetText tekst
datOb.PutInClipboard
Aby wszystko dzialalo, w menu Narzedzia-Odwolania (Tools-References)edytora
VBA, musi byc zaznaczone odwolanie do d Microsoft Forms 2.0 Library.
Powodzenia
Tajan
Sprawdza=B3em s=B1 zaznaczone te same opcje (tylko pierwszych 8 pozycji)
pozosta=B3e wszystkie odznaczone, a tylko na jednym dzia=B3a.
Co mo=BFna dalej sprawdza=E6 ?
A przy jakiejś z tych bibliotek nie ma słowa MISSING lub BŁĄD na
komputerach, na których wyrzuca błąd?
Jak masz 8 pozycji, to znaczy, że masz jakieś dodatkowe biblioteki poza
standardowa ilością 5 sztuk. Sprawdź te, które nie widnieją na poniższej
liście:
- Visual Basic for Appliaction
- Microsoft Excel Object Library (jeśli kod znajduje się w skoroszycie
Excela)
- OLE Automation
- Microsoft Office Object Library
- Microsoft Forms Object Library
ad@vp.pl napisał(a):
| Sprawdza=B3em s=B1 zaznaczone te same opcje (tylko pierwszych 8 pozycji)
| pozosta=B3e wszystkie odznaczone, a tylko na jednym dzia=B3a.
| Co mo=BFna dalej sprawdza=E6 ?
A przy jakiejś z tych bibliotek nie ma słowa MISSING lub BŁĄD na
komputerach, na których wyrzuca błąd?
Jak masz 8 pozycji, to znaczy, że masz jakieś dodatkowe biblioteki poza
standardowa ilością 5 sztuk. Sprawdź te, które nie widnieją na poniższej
liście:
- Visual Basic for Appliaction
- Microsoft Excel Object Library (jeśli kod znajduje się w skoroszycie
Excela)
- OLE Automation
- Microsoft Office Object Library
- Microsoft Forms Object Library
--
Pozdrowienia
pxd74
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -http://www.gazeta.pl/usenet/
Mam
MISSING:Chart 2.0 OLE Custom Control na "blędnym" komputerze an na
"działającym" bez dego słowa.
Jak to naprawić ?
Kolejne pytanko:
Jest PROSTY sposób na wrzucenie do schowka (systemowego)
jakiejś wartości? Obliczam sobie coś i na końcu chciałbym mieć
wynik dostępny m.in. przez Ctrl+V w dowolnym programie
(w Excelu również). Skomplikowana rzecz?
(chodzi o wynik funkcji i zrzut do schowka z poziomu VBA)
Pogrzebałem w helpie i doczytałem się tylko czegoś dotyczącego form.
Jezeli doczytales, to dlaczego nie mozesz tego wykorzystaci ? To "cos" to
obiekt klasy DataObject potrafiacy robic wlasnie to o co ci chodzi :-)
Przyklad wstawiania danych do schowka:
Sub PutToClipboard()
Dim MyDataObj As New DataObject
Dim text As String
text = CStr(123.55)
MyDataObj.SetText text
MyDataObj.PutInClipboard
End Sub
Uzywanie obiektu DataObject wymaga referencji do Microsoft Forms 2.0 Object
Library w projekcie VBA.
Powodzenia
Tajan
Tajan
Witam!
zen wrote:
Darku
Dziękuję za następną poradę . Zajrzałem tam : miałem i nadal
mam 4 pierwsze kontrolki zaznaczone ptaszkiem " v "
Visual Basic For Aplication
Microsoft Excel10.0 Obiectlibrary
Microsoft Office 10.0 Library
Ole Automation
Reszta (kilkadziesiąt) jest wyłączone.
Utwórz formularz (menu Insert/UserForm) a następnie go usuń. Doda Ci się
wtedy brakujące odwołonie do Microsoft Forms 2.0 Object Library. Oczywiście
możesz dodać ręcznie, ale tak jest szybciej
:-)
Za późno wstałem - Tajan był szybszy o 20 minut ;)
Podczas gdy ja szukałem rozwiązania w necie, on po prostu wpisał je z głowy :)
Dodam tylko, że z tego co wyczytałem najprawdopodobnie formę można później
skasować, a odwołanie do "Microsoft Forms 2.0 Object Library" pozostanie.
Z mojego kodu możesz wyrzucić jeszcze poniższą linię:
Debug.Print x(p)
nie jest potrzebna, pozostała z testowania makra.
Pozdrowienia - Darek D.
Do rzeczy .
Makro to dzała teraz połowicznie
podwójne kliknięcie daje mi to samo co Wklej Specjalnie bez
uporządkowania w sensie takim że docelowo chciałem aby liczby
zajmowały kolejne komórki zgrupowane bez przerw .
Ogólnie sytuacja w moim arkuszu jest taka :
Po zabiegu wskazanym przez Tajana mam załączoną piątą
kontrolkę Microsoft Forms 2.0 Object Library
Mam dwa makra
Jedno wgrywalne swoje i jedno wklejone Darka BezPustych
Przepraszam za to że przez swoją niewiedzę jestem dość
uciążliwy
Pozdrawiam
zen
Tajan napisał(a):
Witam!
Bajka wrote:
| Jak zrobic aby po jakies obrobce danych w excelu za pomoca kodu vba
| po skonczeniu calej operacji miec w schowku tekst ktory potem mozemy
| wkleic np.
| do pliku textowego, lub formularza na stronie www ( pisanie sms-a na
| stronie www.orange.pl :)))
| text_w_schowku = "Dzis jest " & Format(Date, "dddd dd-mm-yyyy")
Najczęściej do tego celu używany jest następujący kod:
Sub doSchowka()
Dim MyDataObj As New DataObject
MyDataObj.SetText "Dzis jest " & Format(Date, "dddd dd-mm-yyyy")
MyDataObj.PutInClipboard
End Sub
Jednak do tego, aby dziłał prawidłowo konieczne jest dodanie referencji do
biblioteki "Microsoft Forms 2.0 Object Library" z pomocą menu
Tools/References w edytorze VBA. Nalezy na wyświetlonej liście odszukać jej
nazwę i zaznaczyć z lewej strony "ptaszkiem". Szybciej mozna to zrobić
dodając pusty UserForm (Insert/UserForm) a następnie go usuwając. Biblioteka
doda sie wówczas automatycznie.
Pozdrawiam
Tajan
wkleilem kod do modulu po uruchomieniu pojawia sie "Compile Error" nie
zdefinowna funkcja lub sub.
Mam dwa arkusze wejscie i wyjscie, wyjscie wyczyscilem, wejscie
posortowalem, co jeszcze powinienem zrobic.
pozdrawiam
JB
Moze masz wylaczone VBA ?
Wowczas trzeba:
1.Z menu wybrać opcję Tools-References
2.Zaznaczyć opcje:
- Visual Basic form Aplications
- Microsoft Excel 10.0 Object Library
- Microsoft Forms 2.0 Object Library
- Microsoft Word 10.0 Object Library
pozdrawiam
Marek
I wszystko jest dobrz kiedy jest u mnie na kompie.
Jeśli jednak wysyłam Excela komuś, kto nie ma zaznaczonych
tych opcji, to skrypty nie działają.
Jak zrobić, by u otwierającego te opcje były od razu czynne ?
pzodrawiam
Marek
Dziwne pytanie ale moje normalne pytania zazwyczaj są eliminowane przez
gęste sita {Logika}{MsHelp}{Test Prób-błędów}{Archiwum grupy}
Mam pole tekstowe w którym wyświetlam wieloliniowy tekst wiersz po wierszu.
Pole to w normalnej pracy bazy nie ma focusa. Jak zrobić aby w tym polu
tekstowym widoczny jest zawsze ostatni wiersz tekstu, a pierwsze wiersze
tekstu w zależności od jego długości mogą być zasłonięte na górze.
Ewentualnie można pionowym paskiem przewijania odsłonić?
Przy dodaniu nowego wierszu tekstu (np. me.poletxt=me.poletxt & vbnewline &
nowytxt) a pole jest obecnie przepełnione to zawartość pola zostaje
przewijana do góry aby pokazać nowy wiersz.
(efekt ten można uzyskać używając Microsoft Forms 2.0 Textbox + kombinacja
z SendKeys, ale te dodatkowe Controlki moim zdaniem to sliska sprawa -
podobnie z SendKeys)
Pozdrawiam
Stanley P wrote:
Witam grupowiczow.
Powracam do tematu walkowanego kilka tygodni temu. Dla przypomnienia
przypomne ;-) , ze chodzilo o nastepujaca rzecz:
Jak wyswietlac w formularzach(raportach) przechowywane w bazie obrazki
innego formatu niz BMP, np. JPG, GIF?
[...]
mnie tez to nurtowalo, ale dopiero ten post jakos mnie zmobilizowal ;)
ale do rzeczy.
pewnym rozwiazaniem jest uzycie w formularzu obiektu ImageList (Microsoft
Image List Control) oraz Image (Microsoft Forms 2.0 Image)
jest to moze wada, bo uzywa sie 'zewnetrznych' komponentow (czyli w razie
dystrybucji do innych trzeba dac im odpowiednie pliki .ocx zawierajace te
formanty). na razie jednak pominmy ten problem.
<...
Napisze dosc krotko: przeczytalem, wydrukowalem i schowalem do teczki
pt. 'Ciekawostki/rozwiazania z grupy msaccess'. Moze kiedys sie przyda.
Mialem nadzieje, ze problemik moze uda sie rozwiazac w jakis stosunkowo
prosty sposob, no nie wiem, cos doinstalowac (dll'a?) do Windy itp. Nie
ukrywam, ze interesuje mnie takze, aby zadzialalo takze w Acc2.0.
Wyglada na to, ze chyba nie tak hop siup (obym sie mylil).
Zreszta, tak naprawde pytalem bardziej z ciekawosci, na razie nie mialem
potrzeby (ani zamowienia ;-) zrobienia bazy przechowujacej obrazki. Lecz
nie wiadomo co jutro przyniesie...
Pozdrawiam -
Stanley
Czyli jednak nie śniło mi się, że widziałem jakieś ograniczenia ...
Z grubsza rozumiem je tak: nie masz prawa komponentu redystrybuować, ale
end-user może sobie sam go ściągnąć ...
Bez sensu, ale niech tam.
Ale jak to się ma do tego:
Microsoft Forms 2.01
END-USER LICENSE AGREEMENT FOR MICROSOFT SOFTWARE
(...)
1. GRANT OF LICENSE. This EULA grants you the following rights:
. Installation and Use. You may install and use an unlimited number of
copies of the SOFTWARE PRODUCT.
. Reproduction and Distribution. You may reproduce and distribute an
unlimited number of copies of the SOFTWARE PRODUCT; provided that
(i) each copy shall be a true and complete copy, including all copyright and
trademark notices,
(ii) each copy shall be accompanied by a copy of this EULA, and
(iii) no copy shall be offered for resale.
(???)
(do poczytania podczas instalacji patch'a
http://office.microsoft.com/Downloads/9798/fm2paste.aspx)
Czy można jakoś zmienić kolor przycisku?
Standardowo są szare a ja mam ochotę aby były ... niebieskie.
I nie myślę tu o zmianach w Obiektach3D w ustawieniach Windows.
Chciałbym aby na jednym formularzu przyciski mogły mieć różne kolory.
Wstaw Formant ActiweX
Przybornik --Dostosuj --Microsoft Forms 2.0 CommandButton.
Z nim możesz robić co chcesz. Może Ci nawet mrugać.
Donat
--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
| Czy można jakoś zmienić kolor przycisku?
| Standardowo są szare a ja mam ochotę aby były ... niebieskie.
| I nie myślę tu o zmianach w Obiektach3D w ustawieniach Windows.
| Chciałbym aby na jednym formularzu przyciski mogły mieć różne kolory.
Wstaw Formant ActiweX
Przybornik --Dostosuj --Microsoft Forms 2.0 CommandButton.
Z nim możesz robić co chcesz. Może Ci nawet mrugać.
1. Microsoft Forms 2.0 są podobno nierozerwalną częścią pakietu Office
i w związku z tym nie masz prawa do rozprowadzania do u klientów.
(być może ktoś to sprostuje - na razie proszę traktować jako plotkę)
2. Przycisk MS Forms 2.0 CommandButton nie jest przystosowany do
wyświetlania na formularzu ciągłym !
("wciska się" we wszystkich rekordach)
Inna sprawa, że żadne z obejść które proponowałem poprzednio też nie
zachowuje się inaczej.
----- Original Message -----
From: Krzysztof Naworyta <k.nawor@datacomp.com.pl
To: <pl-comp-bazy-danych-msacc@newsgate.pl
Sent: Thursday, April 04, 2002 3:20 AM
Subject: Re: Microsoft Forms 2.0 ListBox
| Witam i prosze o pomoc!
| Mam pytanie czy kontrolka MS 2.0 ListBox może mieć tylko 10 kolumn?.
| Przy zanaczonych 11 i wiecej kolumnach nie chce przyjmować danych.
| Może Ktos poradzi mi jak w kodzie wpisuje sie nazwy kolumn.
A dlaczego nie użyjesz accessowej kontrolki "Pole Listy" ?
Przyzwyczajenia z czystego VB ?
Zapewniam że w Access'ie jest dużo-dużo prościej ...
KN
--
Archiwum grupy: http://niusy.onet.pl/pl.comp.bazy-danych.msaccess
Naprawde (str 372 "Slownik poprawnej polszczyzny " PWN Warszawa
1980)- dobrze ), nikt nie wie jak wyswietlic naglowki w tej
kontrolne.
Dodałem nowy formularz a na nim listboxa. Pojawił się wizard
pytając skąd chcę pobierać dane dla listboxa. Wybrałem że z tabeli
lub kwerendy a potem wybrałem tabelę i określone pola w tabeli.
Następnie ustawiłem właściwość ColumnHeads na Yes, uruchomiłem
Formularz i nagłówki były. Access 2000.
Jeżeli samodzielnie wypełniasz listboxa to pewnie podobnie jak w
Excelu w takim wypadku nie da się wyświetlić nagłówków.
Pozdrawiam,
Przeczytaj wszystkie posty z tego wątku
----- Original Message -----
From: Hubert Dołęga <hub@rava.com.pl
To: <pl-comp-bazy-danych-msacc@newsgate.pl
Sent: Thursday, October 03, 2002 9:53 PM
Subject: Re: Microsoft Forms 2.0 ListBox
Jeżeli samodzielnie wypełniasz listboxa to pewnie podobnie jak w
Excelu w takim wypadku nie da się wyświetlić nagłówków.
Czesc
Kiedys przerabialem ksiazke z VB i tam tez nie podano tega, a dla innych
kontrolek wszystko bylo OK
Pewnie tak jak napisales jest to niemozliwe.
Pozdrawiam i dzieki za post
Jerzy B
Czessc
ale przecież nie o standardową kontrolkę tu chodzi ...
Tak
Swoją drogą, Jurku, co Cię zmusza do użycia właśnie tej kontrolki ?
Chyba za bardzo zawzielem sie na te kontrolke, ale w mojej zabawie z
Access'em widze duzo mozliwosci zastosowania np.
Wpisuje do niej ksiazki do wypozyczenia 5, 10 iles tam i dopiero zapisuje je
do tabeli przechodzac petla po kontrolce caly czas majac kontrole nad nia.
Przed zapisaniem moge latwo usunac, dodac itp
Podobne zastosowanie w malym sklepie(zakupy jeszcze nie zapisane do tabeli a
widac co kupione i przeliczona naleznosc), w moim malym programie splaty
kredy, gdzie kredyt M splacaja dwie rodziny + inne oplaty, do kontrolki i
nastepnie przy zapisaniu rozdzial rekordow do wlasciwych tabel itd.
tabelą tymczasową, wypełnianą poprzez
analogiczną metodę recordsetu (.AddNew)
Nie bardzo rozumiem co to tymczasowa tabela?
Czy to tabela do ktorej zapisuje tymczasowo rekordy np z pola listy, a
nastepnie po zapisaniu do wlasciwych tabel , czyszcze ja-usuwam rekordy?.
Pozdrawiam
Upie***ony w kontrolce MF 2.0 ListBox
Jerzy B
SprawdziĂŚ referencje... (w dowolnym module: Tools=References)
Mam zaznaczone:
Visual Basic for Applications
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Object Library
Microsoft Forms 2.0 Object Library
Czy czegos brakuje?
Michal
Mam zaznaczone:
Visual Basic for Applications
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Object Library
Microsoft Forms 2.0 Object Library
Microsoft DAO 2.5? 2.6? Nie jestem pewien... ale chyba to jest to.
Mam bazę w A2K.
Projektując formularz przypadkowo z przybornika wybrałem jakąś kontrolkę
Microsoft Forms, którą po chwili skasowałem.
Incydent byłbym zapomniał, gdyby nie to,
że w VBA do referencji dodała się referencja
do Microsoft Forms 2.0 Object Library.
Chciałem to wywalić ale komunikat
Can't remove control or reference; in use
nie pozostawia złudzeń.
Jak odszukać co się odwołuje do tej biblioteki.
Użytkownik "Adam Liberacki" <abbatiniWYTNI@poczta.onet.plnapisał w
wiadomości | Witam
|
| Mam bazę w A2K.
| Projektując formularz przypadkowo z przybornika wybrałem jakąś kontrolkę
| Microsoft Forms, którą po chwili skasowałem.
|
| Incydent byłbym zapomniał, gdyby nie to,
| że w VBA do referencji dodała się referencja
| do Microsoft Forms 2.0 Object Library.
|
| Chciałem to wywalić ale komunikat
| Can't remove control or reference; in use
| nie pozostawia złudzeń.
|
| Jak odszukać co się odwołuje do tej biblioteki.
|
1. Zaimportować wszystko do nowego pliku bazy, a następnie usunąć
referencję.
2. Jeśli punkt 1 się nie powiedzie - importować do nowego pliku bazy kolejne
formularze i każdorazowo sprawdzać, czy kompilacja przebiega bezbłędnie.
Jeśli istnieje kontrolka wymagająca tej referencji, to pojawi się błąd
kompilacji. Wtedy usuwać z podejrzanego formularza kolejne kontrolki i
próbować kompilacji.
Pozdrawiam,
Krzysiek
Pozdrawiam
WW
Zastanawiam się nad kupnem ale nie wiem jakie biblioteki będę mógł
redystrybuować a jakich nie. Choćby proste Microsoft Forms , można
używać czy nie ??
INFO: Usage and Redistribution of FM20.DLL
http://support.microsoft.com/default.aspx?scid=kb;en-us;224305
HTH
Pozdrawiam,
Przeczytaj wszystkie posty z tego wątku
Wojciech Woźniak napisał:
| Zastanawiam się nad kupnem ale nie wiem jakie biblioteki będę mógł
| redystrybuować a jakich nie. Choćby proste Microsoft Forms , można
| używać czy nie ??
INFO: Usage and Redistribution of FM20.DLL
http://support.microsoft.com/default.aspx?scid=kb;en-us;224305
HTH
Pozdrawiam,
Przeczytaj wszystkie posty z tego wątku
-----Oryginalna wiadomość-----
Od: Piotr Chlabicz [mailto:pchlab@wp.pl]
Wysłano: 2002-11-13 13:58
Do: pl-comp-bazy-danych-msacc@newsgate.pl
Temat: Re: zmiana czcionki w msgbox
| | Czy da się zmienić kolor przycisku na formularzu ?
| Który Access?
| access 97
| No to trzeba zrobić własnego albo czarować cuś z API.
A w zasadzie jak zmienilbys kolor przycisku?
Nie wpadlem nigdy na to.
A2k? :-)
Można wstawić kontrolkę przycisku: "Microsoft Forms 2.0 CommandButton".
Grzegorz
Przeczytaj wszystkie posty z tego wątku Na pewno masz rację... boję się tylko że nauka programowania w nowym VS
zajmie mi wieki... i dlatego właśnie pisałem o czymś analogicznym do
oraclowskich formsów.
zawsze mozesz komus zaplacic za to lub sie nauczyc, zreszta ktos ci
podal linka do takiego narzedzia jak oracle forms, microsoft tez takiego
ma cos z officem zwiazane, open office chyba tez.
Właśnie "przerabiam" to z OpenOffice... super narzędzie z supportem i
polską dokumentacją. Do tego wszystkiego bardzo taniem ale z rozmów wynika
że jak na razie to się dopiero rozwija.
Co do zlecenia tego komuś to ma to jedną wadę - soft będzie cały czas
ewaluował i dlatego muszę mieć i rozumieć źródłą - tak by móc je od ręki
poprawiać.
Ale nic to... mam cały weekend na przemyślenia i oglądanie demowersji.
Tak czy siak to jeszcze raz dziekuję za cenne informacje i uwagi .
Tomek
Miło się dyskutuje :)
yhm :)
: mozliwosc importu jest akurat nieograniczona (chyba ze licencjami)
Taa???
i na przykład możesz posadzić na formie zaimportowany komponent OCX do
np. wyświetlania dokumentów Acrobat Reader?, rysunków DWG???. To
wszystko w VBA (nie VB)?????
formatka z VBA korzysta z biblioteki FM20.DLL (Microsoft Forms 2.0 Object
Library)
dlatego troche osobliwie wyglada jej stosowanie/uzywanie...
niemniej bez problemu mozna dolaczyc dowolna kontrolke ActiveX dostepna w
kompie
w IDE VBA przy aktywnej formie kiknij prawa mysza na Toolbox-ie i wybierz
"Additional Controls..."
jest tam tego od cholery :) lacznie z "Acrobat Control for ActiveX"
(przynajmniej u mnie)
i
u mnie dziala!
: ps troche zal ze nie ma DA no nie :)
Datatabase Automation ?
Delphi for Application ;-)
pozdowka
dziadek
zdrówko
kamil
Witam,
Szukam kontrolki (darmowej!) CommandButton, która miałaby nieco ciekawsze
możliwości niż zwykły CommandButton. Tzn. konkretnie chodzi mi o możliwość
wyświetlania obrazka po dowolnej stronie tekstu (a nie tylko nad tekstem),
wyrównywanie tekstów do dowolnej strony itp. Jeśli ktoś zna coś takiego,
albo podobnego to bardzo proszę o info.
Pozdrawiam
Bart
W VB można dodać zbory kontrolek. Wyberz okno Components i w zakładce
Controls wybierz Microsoft Forms 2.0 Objects Library
Ale tylko dla własnego użytku. Nie wolno rozpowszechniać projektu
z Forms 2.0 - chyba że razem z Office (patrz licencja).
Wiesiek
Ale tylko dla własnego użytku. Nie wolno rozpowszechniać projektu
z Forms 2.0 - chyba że razem z Office (patrz licencja).
Wiesiek
W Office Developer Edition - można :)
A co do przycisków -wejdź sobie na www.componentsource.com -masz tego
troszeczkę...
Ja miałem podobny problem jak wykorzystywałem: "Microsoft Forms 2.0 Object
Library".
Może o to chodzi?
Wojtek
Zrobiłam wersję instalacyjna programu. Wszystko działało na kilku
komputerach.
Na jednym nie chce się zainstalować, wyskakuje błąd "Out of Memory".
co robić... ?
Mam problem z instalacja programu, ktory uzywa MSForms.
Robie prosty projekt, forma a na niej Frame z biblioteki Microsoft Forms
2.0 Object Library (FM20.dll).
Zero kodu. Uruchamiam u siebie, chodzi.
Proba uruchomienia na jakimkolwiek innym komputerze konczy sie dr.
U klienta musi być zainstalowane Office.:)
Wiesiek
roleta napisał(a) w wiadomości: ...
Jak spowodowac, zeby podczas wpisywania w pole combo automatycznie
dopasowywaly sie itemsy z listy tego pola po kazdym znaku - tak jak w
polach
typu combo w MS Access ?
Dzieki
rol@polbox.com
<jgarc@zt.krakow.tpsa.plwrote:
Jeżeli pracujesz pod Win95 OEM lub Win98 oraz masz zainstalowany Office97 to
w komponetach masz Microsoft Forms 2.0. Combo z tejze bibloteki zachowuje
się w sposób jakiego oczekujesz.
Zastosowanie innych combo jest niewątpliwie słuszne, ale dla nowych
raczej programów. Niestety jest to program istniejący, w którym z
pewnych względów nie chcę zmieniać combo na inne, natomiast funkcja
autocomplete staje się niezbędna. Potrzebna jest mi więc jakaś prosta
procedurka, co to by znajdowała na liście wyraz i dopełniała combo, a
najlepiej jeszcze z (podświetleniem uzupełnionego tekstu(ala IE4 lub
NN4). Jeśli nie istnieje, to niestety będę musiał ją stworzyć :-(.
Pozdrawiam
Bartek
<kiz@alpha.net.pl
<kiz@it.pw.edu.pl
Bartosz Kiziukiewicz napisał(a) w wiadomości:
<3716a8b3.1019@news.tpnet.pl...
Zastosowanie innych combo jest niewątpliwie słuszne, ale dla nowych
raczej programów. Niestety jest to program istniejący, w którym z
pewnych względów nie chcę zmieniać combo na inne, natomiast funkcja
autocomplete staje się niezbędna. Potrzebna jest mi więc jakaś prosta
procedurka, co to by znajdowała na liście wyraz i dopełniała combo, a
najlepiej jeszcze z (podświetleniem uzupełnionego tekstu(ala IE4 lub
NN4). Jeśli nie istnieje, to niestety będę musiał ją stworzyć :-(.
Pozdrawiam
Bartek
Jeżeli tylko nie masz wypełnionych Combo z poziomu właściwości List, a
tworzysz zawartość w kodzie to zamiana sprowadza się jedynie do usunięcia
starego Combo wstawienie nowego i nazwanie go tak jak nazywał się stary.
Wszystkie metody poraz właściwości ze standardowego Combo mają swoje
odpowiedniki w Combo z Microsoft Forms 2.0. Pewnie że można napisać
procedurę korzystającą ze zdarzeń KeyUp ( lub KeyPress) i samemu
przeszykiwać Combo, ale napeno jest więcej przy tym pracy. Wiem bo to
przerabiałem.
Pozdrawiam Jacek
Jacek Garczyk <jgarc@zt.krakow.tpsa.plwrote in message
odpowiedniki w Combo z Microsoft Forms 2.0. Pewnie że można napisać
Mam tylko pytanie czy Microsoft udostępnia te komponenty tak za darmo.
Jeżeli nie to ile kosztują i jak je można zakupić ?
Pozdrowienia
Damian
Reference=*G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#......WINDOWSSYSTEMFM20.DLL#Microsoft Forms 2.0 Object Library
Forms 2.0 jest cześcia Officów i Visuala
Nie można używać go, a już napewno rozpowszechniać z własnymi programami, chyba że są to Addiny do Offica albo Visuala, ale w takim przypadku również nie można go redystrybuować, gdyż jest ściśle związany z zainstalowaną w systemie wersją biblioteki mso.dll
Z Forms 2.0 jest jeszcze jeden problem, biblioteka ta nie zawiera informacji o odwołaniach do innych bibliotek, co powoduje że instalator nie wie jakie inne dll'ki ma dodać i w kosekwencji nie może ona działać prawidłowo.
PS.
Na pewno potrzebujesz tych wszystkich pozostałych bibliotek
Dla przykładu poniższe kontrolki to DBList i DataList (plus odpowiednie Combo),
przy czym pierwsza odnosi sie do DAO, a druga ADO
Object={FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0; DBLIST32.OCX
Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
Gridy ADO i DAO
Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX
i znowu Common Controls 5.0 i Common Controls-2 6.0
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
Wiem że od przybytku głowa nie boli, ale to lekka przesada, wybież jeden sposób dostępu do bazy, instalka ci się zmniejszy.
Przeczytaj wszystkie posty z tego wątkuPozdrawiam Jacek G.
P.S. Czy na prawdę nikt nie używa Microsoft Forms 2.0. Przecież Combo z tej
bibloteki robi to o co Ci chodzi?
roleta napisał(a) w wiadomości: ...
Sciagnalem kontrolke combo z vbaccelerator.com i nie moge z niej
skorzystac.
Po uruchomieniu projektu vb wywala komunikat:
Run-time error '429':
ActiveX component can't create object
Nadmieniam, ze wraz z kontrolka sciagnalem (podobno wymagany) SSubTmr.dll.
Kontolke i dll-a wrzucilem do C:WinntSystem32.
Moze robie cos nie tak ?
Dzieki
Pozdro
rol@polbox.com
P.S. Czy na prawdę nikt nie używa Microsoft Forms 2.0.
Przecież Combo z tej bibloteki robi to o co Ci chodzi?
Co masz przez to na myśli? Kontrolkę ComboBox z ToolBoxa?
O tą standardową windowsową kontrolkę Ci chodzi?
Na liście "Refferences" nie mam niczego o nazwie MS Forms 2.0
co to zwierze? :-)
Pszemol
<jgarc@zt.krakow.tpsa.plwrote:
P.S. Czy na prawdę nikt nie używa Microsoft Forms 2.0. Przecież Combo z tej
bibloteki robi to o co Ci chodzi?
Próbowałem przed chwilą, ale wychrzania błąd, że nie może znaleźć
komponentu.
Pozdrawiam
Bartek
<kiz@alpha.net.pl
<kiz@it.pw.edu.pl
Pszemol napisał(a) w wiadomości: <7f2i1j$i0@h1.uw.edu.pl...
Jacek Garczyk <jgarc@zt.krakow.tpsa.plwrote in message
| P.S. Czy na prawdę nikt nie używa Microsoft Forms 2.0.
| Przecież Combo z tej bibloteki robi to o co Ci chodzi?
Co masz przez to na myśli? Kontrolkę ComboBox z ToolBoxa?
O tą standardową windowsową kontrolkę Ci chodzi?
Na liście "Refferences" nie mam niczego o nazwie MS Forms 2.0
co to zwierze? :-)
Pszemol
Nie wiem czy o to chodzi ale sprawdz "FM20.dll"
Andrzej
Myślę, że są jeszcze ludzie, którzy nie są złodziejami, mają legalne wersje
narzędzi, i tworzą programy które dalej chcą sprzedawać.
Microsoft Forms 2.0 NIE jest częścią VB i programista NIE ma prawa
sprzedawać programów w których je używa (nawet, jeśli ma licencję na MS
Office)
Pozdrawiam,
Paweł
Pawel Rosiak wrote:
Myślę, że są jeszcze ludzie, którzy nie są złodziejami, mają legalne wersje
narzędzi, i tworzą programy które dalej chcą sprzedawać.
Microsoft Forms 2.0 NIE jest częścią VB i programista NIE ma prawa
sprzedawać programów w których je używa (nawet, jeśli ma licencję na MS
Office)
Pozdrawiam,
Paweł
Zaraz, zaraz. W moim VB5.0 Pro MF2.0 pojawia sie w Components. Dlaczego
to nie jest legalne? Jeszcze z tego nie korzystalam, ale pewnie bede,
wiec wolalabym byc pewna, ze to legalne. Nigdzie nie pojawia mi sie
informacja, ze nie wolno mi tego wykorzystywac.
Pozdrawiam
Joanna
Pawel Rosiak napisał(a) w wiadomości:
<7f32qd$mr@gemini.webcorp.com.pl...
|Jacek Garczyk <jgarc@zt.krakow.tpsa.plwrote in message
| |P.S. Czy na prawdę nikt nie używa Microsoft Forms 2.0.
|Przecież Combo z tej bibloteki robi to o co Ci chodzi?
|
Myślę, że są jeszcze ludzie, którzy nie są złodziejami, mają legalne wersje
narzędzi, i tworzą programy które dalej chcą sprzedawać.
Microsoft Forms 2.0 NIE jest częścią VB i programista NIE ma prawa
sprzedawać programów w których je używa (nawet, jeśli ma licencję na MS
Office)
Pozdrawiam,
Paweł
--
Pelny dostep do Internetu juz od 8,34 PLN na miesiac - http://rubikon.pl
| | | Dziwna sprawa - jest sobie arkusz z kilkoma makrami, formularzami i
| modułami.
| Na moim kompie się uruchamia bez problemu - pod Excelm 97 i XP.
| na kompie kumpla się wywala - Excel 2000, na innym kompie obok też z
| Excelm
| 2000 to samo się uruchamia.
| Gdzie szukać przyczyny takiego stanu?
| Wszelkie sugestie mile widziane.
| Pokazuje jakiś błąd czy po prostu się nie otwiera?
| Czy próbowałeś uruchamiać ten plik bez włączania makr?
| Czy plik uruchomia jakieś makro przy otwarciu pliku?
Wiem tylko to co mi przekazują, nie mam dostępu do tego kompa.
Przy próbie otwarcia się zawiesza.
Wyłączanie makr nic nie pomaga.
Są makra i formularze (UserForms).
Inne arkusze się otwierają.
--
Witam
Miałem coś takiego u usera.
Zrobił sobie UserForm
i wstawił tam nietypową formatkę
(chyba ComboBox ale nie był to
Microsoft Forms tylko inny
chyba Oraclowy)
No i nie chciało się za cholerę uruchomić.
Przy otwarciu Excell nie mógł znaleźć klasy
nietypowego formantu wię c się wieszał.
Wg. mnie wina leży w zastosowaniu formantów z XP.
Należy je usunąć w pliku źródłowym
lub użyć tych w wersji Microsoft Forms 2.0
Marek Sikora
| Mam dokładnie ten problem, o którym pisze benek. Ale kiedy próbuję
| dodać referencję do Microsoft Forms 2.0 Object Library wyświetla się
| komunikat:
| "Name conflicts with existing module, project or object library."
| Nie jestem zbyt zaawansowany w vb i zgłupiałem jak to zobaczyłem.
| Z góry dzięki za wyjaśnienie o co tu chodzi.
1.nie dodawaj referencji tylko dodaj komponent.
2.sprawdz czy nie dales nazwy swojemu projektowi lub jednemu z modulow - "MSForms"
3.sprawdz koniecznie czy nie masz referencji!!! bo nie dodasz do komponentow.
--
Wysłano z serwisu OnetNiusy:http://niusy.onet.pl
witam ponownie,
Użyłem comboboxa z MS forms 2.0 i faktycznie nie ma problemów ze
zmianą wysokości. Jest natomiast inna kwestia. nie widzę właściwości
"List" Jak mam zdefiniować listę parametrów do wyboru? z góry dziękuje
za odpowiedź.
| 1.nie dodawaj referencji tylko dodaj komponent.
| 2.sprawdz czy nie dales nazwy swojemu projektowi lub jednemu z modulow -
"MSForms"
| 3.sprawdz koniecznie czy nie masz referencji!!! bo nie dodasz do komponentow.
| --
| Wysłano z serwisu OnetNiusy:http://niusy.onet.pl
witam ponownie,
Użyłem comboboxa z MS forms 2.0 i faktycznie nie ma problemów ze
zmianą wysokości. Jest natomiast inna kwestia. nie widzę właściwości
"List" Jak mam zdefiniować listę parametrów do wyboru? z góry dziękuje
za odpowiedź.
rzeczywiscie nie ma wlasciwosci list w tym combobox-ie ale nie ma powodow do
paniki, mozesz skorzystac z czegos takiego:
ComboBox1.AddItem "text do dodania"
dodaje wiersz do listy rozwijanej. mozesz wywolac przed wczytaniem formatki lub po.
Crafty wrote:
Jak w Visual C++ zmienić czcionkę (rodzaj, rozmiar itp.) na przycisku? Umiem
zmienić tylko dla wszystkich na raz, ale ja chce każdemu inna.
Czy trzeba to zrobic programowo, czy mozna w jakis wlasciwosciach?
uzyj kontrolek ActiveX :}
kontrolka posiadajaca wlasciwosci, o ktorych wspominasz nazywa sie
Microsoft Forms Command Button [u mnie sie to nazywa "Microsoft Forms
2.0 Command Button"]
kazdemu takiemu button'owi mozna zmienic czcionke, kolor tla, kolor
napisu, wstawic pikczera :}, zdefiniowac kursor mychy, ktory pojawi sie
gdy user "najedzie" nad button itp - a to wszystko wylacznie klikajac
bez pisania ani jednej linii kodu :)
jesli chcesz cos podobnego dla Edit'ow to skorzystaj z Microsoft Rich
Textbox Control [u mnie sie to nazywa "Microsoft Rich Textbox Control,
version 6.0"]
podane informacje dotycza Visual C++ 6.0 :)
}
UINT FunkcjaWatka(LPVOID pParam)
{
static i=1;
file://CImage* m_Image= (CImage*)pParam;
HMODULE cards=LoadLibrary("cards.dll");
HBITMAP card1=LoadBitmap(cards,MAKEINTRESOURCE(i++));
if (card1==NULL) MessageBox(NULL,"NULLL","LoadLibrary",MB_OK);
CPictureHolder pic1;
pic1.CreateFromBitmap(card1);
m_Image1-SetPicture(pic1.GetPictureDispatch());
m_Image1-Invalidate();
if(i==68) i=0;
return 0;
}
Ze zwykla funkcja chodzi doskonale natomiast z watkiem jest blad (wyjątek)
wychodzi gdy wywoływana jest funkcja
m_Image1-SetPicture(pic1.GetPictureDispatch());
activex image 2.0 potrzebny jest mi do zrobienia gry w karty niestety z
watkiem nie chodzi
i nie wiem dlaczego. Czego jeszcze można użyć do gry w karty microsoft forms
2.0 image
wydaje mi się najlepszy.
UINT FunkcjaWatka(LPVOID pParam)
{
static i=1;
file://CImage* m_Image= (CImage*)pParam;
HMODULE cards=LoadLibrary("cards.dll");
HBITMAP card1=LoadBitmap(cards,MAKEINTRESOURCE(i++));
if (card1==NULL) MessageBox(NULL,"NULLL","LoadLibrary",MB_OK);
CPictureHolder pic1;
pic1.CreateFromBitmap(card1);
m_Image1-SetPicture(pic1.GetPictureDispatch());
m_Image1-Invalidate();
if(i==68) i=0;
return 0;
}
Ze zwykla funkcja chodzi doskonale natomiast z watkiem jest blad (wyjątek)
wychodzi gdy wywoływana jest funkcja
m_Image1-SetPicture(pic1.GetPictureDispatch());
activex image 2.0 potrzebny jest mi do zrobienia gry w karty niestety z
watkiem nie chodzi
i nie wiem dlaczego. Czego jeszcze można użyć do gry w karty microsoft
forms
2.0 image
wydaje mi się najlepszy.
Użytkownik wrote:
Sub
sorry za długi cytat, i dziękuje za wszelką pomoc!
Niestety nie działa :(
od razu odpala sie komunikat: MsgBox "Nieoczekiwany koniec procedury!"
po małych zmianach i połączeniu tego w jedność ;) wywala błąd na
linii z:
Set MyData = New DataObject
podejrzewam że coś może być z: Sub Worksheet_SelectionChange(ByVal
Target As Range)
Sprawdź, w menu edytora VBA: ToolsReferences, czy masz wstawioną referencję
do biblioteki "Microsoft Forms 2.0 Object Library". DataObject pochodzi z
tej biblioteki i jeżeli jej nie dodasz, to otrzymasz błąd.
Właściwy kod błedu, po zdezaktywowaniu procedury obsługi błedów, poprzez
wstawienie komentarzana początku linni:
On Error Goto Blad
i małe BTW: powyższe makro odpala po najechaniu na jakiekolwiek z
pól nie tylko w kolumnie pierwszej... jak było w pierwowzorze
Warunki uruchomienia makra pozostały identyczne, więc nie widze powodu dla
którego makro miałoby sie zachowywać inaczej. Moim zdaniem robisz gdzieś
jakiś prosty bład, którego ja niestety nie potrafię wyłapać, nie mogąc
uruchomić makra w rzeczywistych warunkach. Oczywiście, myślę o samej
procedurze wysyłającej klawisze! Makro Worksheet_SelectionChange działa
zawsze, niezaleznie od zaznaczenia.
chyba wrócę do if'a i pogodzę się z 240 wykonaniami.
Jak uważasz, ale moim zdaniem, to bardzo zły wybór.
Tajan
| Mam pole tekstowe w którym wyświetlam wieloliniowy tekst wiersz po
| wierszu. Pole to w normalnej pracy bazy nie ma focusa. Jak zrobić aby w
| tym polu tekstowym widoczny jest zawsze ostatni wiersz tekstu, a
| pierwsze wiersze tekstu w zależności od jego długości mogą być
| zasłonięte na górze. Ewentualnie można pionowym paskiem przewijania
| odsłonić?
|
| Przy dodaniu nowego wierszu tekstu (np. me.poletxt=me.poletxt &
| vbnewline & nowytxt) a pole jest obecnie przepełnione to zawartość pola
| zostaje przewijana do góry aby pokazać nowy wiersz.
|
| (efekt ten można uzyskać używając Microsoft Forms 2.0 Textbox +
| kombinacja z SendKeys, ale te dodatkowe Controlki moim zdaniem to
| sliska sprawa - podobnie z SendKeys)
1.
Co do ostatnich zdań całkowicie się z Tobą zgadzam - mnie też to śmierdzi
...
2.
Pozostając jednak przy accessowych kontrolkach jesteś raczej skazany na
niepowodzenie!
Jak długo kontrolka ma focus, możesz próbować użyć API by przesunąć jej
pasek przewijania do ostatniej linijki ...
Jak nie ma focusu, to - IMHO - kóniec ! No chance! Zawsze wyświetli swoją
zawartość "od góry" !
3.
Chyba że ...
Uzyjesz jednej z "lebansowych" funkcji do wyliczenia wysokości tekstu -
bez względu czy liczyć tylko znaki końca wiersza czy "naturalne
załamania", aby obliczyć gdzie zaczyna się ten ostatni fragment;
- następnie swoją kontrolkę, która wszystko wyświetla "od początku",
przykryjesz inną kontrolką, która wyświetla tylko "resztę"
- a tej ostatniej w OnEnter/OnClick ustawisz Pierwsza.SetFocus (itd.)
(zabronisz też wchodzenia do niej przy pomocy tab'ów)
Jeśli ta "pod spodem" uzyska focus, wyjdzie na wierzch w BIEŻĄCYM
rekordzie !
Kombinacja dwóch kontrolek leżących na sobie (jedna wyliczana - druga
bezpośrednia) daje sporo nowych możliwości jeśli chodzi o budowanie czegoś
niestandardowego!
Ma też wady: access nie lubi kopulujących kontrolek ...
(znaczy takich, które leżą jedna na drugiej; strasznie mu oko lata ...
;-) )
1. RowSourceType = "Lista wartości"
RowSource = "plik1.mdb;plik2.mdb;plik3.mdb;..."
(dobre, jak długo nie przekroczymy maksymalnej długości właściwości
RowSource = 2048 znaków)
Obsługa przez zwykłe:
RowSource = RowSource & ";" & kolejnyPlik
2. RowSourceType ="MojaCallBackFunkcja"
RowSource = ""
MojaCallBackFunkcja() musi mieć specjalną strukturę, ale pozwala na
przekazanie do kombi/listy dowolnie wyliczanych wartości, pobieranych np. z
tablicy (nie tabeli ;-), recordsetu, kolekcji ...
Help do A'97 pod hasłem "RowSource/RowSourceType" dość dokładnie omawia tę
strukturę (wraz z przykładami)
Jak tego typu funkcję użyć dla kombi wielokolumnowego prezentuje Ashish:
www.mvps.org/access/forms/frm0049.htm
Dwie takie funkcje napisałem i używam w formularzu głównym aplikacji MDE2MDB
http://www.access.vis.pl/war223.htm (świeżo po aktualizacji strony !)
Myślę, że mogą posłużyć jako dodatkowy przykład użycia.
(w przypadku tej dość niewdzięcznej funkcji przykładów nigdy dość !)
3. Użycie Microsoft Forms 2.0.ListBox i prostej metody AddItem w procedurze
wyszukującej pliki.
(Począwszy od A'XP metoda dostępna także w Access.ListBox)
Użytkownik wrote:
Juzer Hubert Dołęga <hub@majtki-energy.pl.invalid napisał:
Krzysztof Naworyta napisał:
Nie tyle chodzi o _pełnego_ accessa czy excela co o prawa do
rozprowadzania komponentu z Access Run-Time ...
Ale właśnie wygrzebałem linka:
http://office.microsoft.com/Downloads/9798/fm2paste.aspx
gdzie w EULA nie znalazłem _żadnych_ tego typu obwarowań (!)
INFO: Usage and Redistribution of FM20.DLL
http://support.microsoft.com/?kbid=224305
Czyli jednak nie śniło mi się, że widziałem jakieś ograniczenia ...
Z grubsza rozumiem je tak: nie masz prawa komponentu redystrybuować,
ale end-user może sobie sam go ściągnąć ...
Bez sensu, ale niech tam.
Ale jak to się ma do tego:
Microsoft Forms 2.01
END-USER LICENSE AGREEMENT FOR MICROSOFT SOFTWARE
(...)
1. GRANT OF LICENSE. This EULA grants you the following rights:
. Installation and Use. You may install and use an unlimited number of
copies of the SOFTWARE PRODUCT.
. Reproduction and Distribution. You may reproduce and distribute an
unlimited number of copies of the SOFTWARE PRODUCT; provided that
(i) each copy shall be a true and complete copy, including all
copyright and trademark notices,
(ii) each copy shall be accompanied by a copy of this EULA, and
(iii) no copy shall be offered for resale.
(???)
(do poczytania podczas instalacji patch'a
http://office.microsoft.com/Downloads/9798/fm2paste.aspx)
Tak śledzę waszą dyskusję i powiem, że już przestałem się dziwić.
Goście z MS przechodzą samych siebie by "uprzyjemnić" developerom dostęp do wachlarza funkcji. Takie niejasności to być może ich furtka, bo jeśli zechcą to dokopią komu chcą.
Ciekawe kiedy pojawi się jakieś "sprostowanie" odnośnie np. MSDE2000 i tym samym runą szleńcze nadzieje, że np. .NET Framework + MSDE2000 to ciekawa i tania (w sensie kosztu produktu) alternatywa dla dużych i drogich kombajnów.
---
pozdrawiam trochu sceptycznie :O|
KCiuba
Prowadzone są w języku angielskim.
(Pojawiają się od czasu do czasu pytania w innych językach, ale rzadko
otrzymują odpowiedzi.)
Microsoft wyznacza osoby, które szczególnie często i trafnie tam odpowiadają
na pytanie tytułem "MSVP" - Andy Baron się liczy do tej grony. (zob.
www.msvp.com/access.)Oprócz tego często pisze w czasopi mie Access-Office-VB
Advisor - bardzo warto ciowa, choć też angielskojęzyczna. (zob.
www.advisor.com.)
Nie miałam zaszczytu zapoznać tego pana osobi cie, ale barzo wysoko ceniam
jego wkłady i jestem pewna że dzięki niemu jestem dzisiaj lepszym
programistem, niż kiedy .
A co do tego - tak jak Pan Krzysztof się domy lał, piszę w
niepolskojęzycznej wersji Windows. Mogę "język" nastawiać na Central
European Alphabet (ISO), lub na Central European Alphabet (Windows). Który
będzie lepiej odpowiadało grupowcom?
- żółwik
DarC wrote in message ...
Użytkownik Turtle <macderm@mindspring.comw wiadomości do grup
dyskusyjnych napisał:804qhj$om@nntp5.atl.mindspring.net...
| Cieszę się bardzo, że sprawa się udała.
|
| A teraz kredyty. Nauczyłam się tego podej cia od Andy Baron, który
często
| odpowiada na pytania w grupach microsoft.public.access.... Wła nie to
| podej cie już wyratowało mi z kilku trudnych sytuacji.
Rozjaśnij proszę nigdy nie byłem na wspomnianej grupie... a p. Andy nikt mi
jeszcze nie przedstawił ;-))
Reference=*G{00000205-0000-0010-8000-00AA006D2EA4}#2.5#0#......WINDOWSS
YSTEMmsado25.tlb#Microsoft ActiveX Data Objects 2.5 Library
Reference=*G{00025E01-0000-0000-C000-000000000046}#5.0#0#......WINDOWSS
YSTEMDAO360.DLL#Microsoft DAO 3.6 Object Library
Reference=*G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#......WINDOWSS
YSTEMMSSTDFMT.DLL#Microsoft Data Formatting Object Library 6.0 (SP4)
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; SHDOCVW.DLL
Reference=*G{56BF9020-7A2F-11D0-9482-00A0C91110ED}#1.0#0#......WINDOWSS
YSTEMMSBIND.DLL#Microsoft Data Binding Collection VB 6.0 (SP4)
Reference=*G{B45E0189-CF19-11D6-8C2D-0050FC2F0D73}#2.0#0#......PROGRAM
FILESPIEKARNIAREGISTERLICENCJA.DLL#Licencja
Reference=*G{84B7C305-D151-11D6-8C2D-0050FC2F0D73}#1.0#0#......PROGRAM
FILESPIEKARNIAREGISTERCOD.DLL#Cod
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
Object={65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0; MSCHRT20.OCX
Object={67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0; MSADODC.OCX
Object={C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0; MSMASK32.OCX
Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
Object={0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0; MSHFLXGD.OCX
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Reference=*G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#......WINDOWSS
YSTEMFM20.DLL#Microsoft Forms 2.0 Object Library
Object={FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0; DBLIST32.OCX
Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX
Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX
Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
Object={5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0; MSFLXGRD.OCX
Object={38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0; COMCT332.OCX
Object={ED2BF553-CF2C-11D6-8C2D-0050FC2F0D73}#1.0#0; BROWSEMDB.OCX
Object={4A26529F-AE17-4F66-B265-70227BBF77DA}#1.1#0; RYSUNEK.OCX
Object={E043FC54-CFFB-11D6-8C2D-0050FC2F0D73}#1.0#0; INFORM.OCX
Najlepiej w tym celu przeslij na grupe naglowek pliku vbp,
gdzie sa wymienione uzyte obiekty.
pzdr aci
Dzięki.
Reference=*G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#......WINDOWSS
YSTEMFM20.DLL#Microsoft Forms 2.0 Object Library
Forms 2.0 jest cześcia Officów i Visuala
Nie można używać go, a już napewno rozpowszechniać z własnymi programami,
chyba że są to Addiny do Offica albo Visuala, ale w takim przypadku również
nie można go redystrybuować, gdyż jest ściśle związany z zainstalowaną w
systemie wersją biblioteki mso.dll
Z Forms 2.0 jest jeszcze jeden problem, biblioteka ta nie zawiera informacji
o odwołaniach do innych bibliotek, co powoduje że instalator nie wie jakie
inne dll'ki ma dodać i w kosekwencji nie może ona działać prawidłowo.
PS.
Na pewno potrzebujesz tych wszystkich pozostałych bibliotek
Dla przykładu poniższe kontrolki to DBList i DataList (plus odpowiednie
Combo),
przy czym pierwsza odnosi sie do DAO, a druga ADO
Object={FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0; DBLIST32.OCX
Object={F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0; MSDATLST.OCX
Gridy ADO i DAO
Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDATGRD.OCX
Object={00028C01-0000-0000-0000-000000000046}#1.0#0; DBGRID32.OCX
i znowu Common Controls 5.0 i Common Controls-2 6.0
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
Wiem że od przybytku głowa nie boli, ale to lekka przesada, wybież jeden
sposób dostępu do bazy, instalka ci się zmniejszy.
Zrobił sobie UserForm
i wstawił tam nietypową formatkę
(chyba ComboBox ale nie był to
Microsoft Forms tylko inny
chyba Oraclowy)
Tylko że ja dodałem UserForm i ComboBox z 'Przybornika' więc co tu
nietypowego?
No i nie chciało się za cholerę uruchomić.
Przy otwarciu Excell nie mógł znaleźć klasy
nietypowego formantu wię c się wieszał.
Wg. mnie wina leży w zastosowaniu formantów z XP.
Należy je usunąć w pliku źródłowym
lub użyć tych w wersji Microsoft Forms 2.0
Możesz przełożyć to na bardziej łopatologiczną wersję?
Nie wiem czy dobrym tropem idąc zajrzałem do 'Przeglądarki obiektów', tam
do MSForms-ComboBox i jest coś takiego: Library MSForms
C:WINDOWSSystem32MSForms.TWD
Microsoft Forms 2.0 Object Library
Jak kliknę 'ComboBox' -Odwołania to w oknie 'Odwołania VBAProject' mam po
kolei (zaznaczone):
Visual Basic For Applications
Microsoft Excel 8.0 Object Library
OLE Automation
Microsoft Forms 2.0 Object Library
Microsoft Office 8.0 Object Library
i dalej już uinne biblioteki (niezaznaczone)
Przeglądnąłem też 'Przybornik'-'Dodatkowe formanty'
i zaznaczone w nim były formanty MS Forms 2.0 (combobox, listbox itd.) i
jeden z Office'a XP -RefEdit.Ctrl
może przez to nie działa?
Na razie wywaliłem ten RefEdit.Ctrl. Tylko jak teraz 'naprawić' tamten
arkusz?
Czy wystarczy go teraz ponownie zapisać, czy też muszę otworzyć nowy,
przekopiować do niego moduły, wyeksportować UserForms i zaimportować do
nowego? Czy jeszcze inaczej?
Witam grupowiczow.
Powracam do tematu walkowanego kilka tygodni temu. Dla przypomnienia
przypomne ;-) , ze chodzilo o nastepujaca rzecz:
Jak wyswietlac w formularzach(raportach) przechowywane w bazie obrazki
innego formatu niz BMP, np. JPG, GIF?
[...]
mnie tez to nurtowalo, ale dopiero ten post jakos mnie zmobilizowal ;)
ale do rzeczy.
pewnym rozwiazaniem jest uzycie w formularzu obiektu ImageList (Microsoft
Image List Control) oraz Image (Microsoft Forms 2.0 Image)
jest to moze wada, bo uzywa sie 'zewnetrznych' komponentow (czyli w razie
dystrybucji do innych trzeba dac im odpowiednie pliki .ocx zawierajace te
formanty). na razie jednak pominmy ten problem.
tworzymy formularz, np. "pictureList" i na nim umieszczamy formant
ImageList, powiedzmy o nazwie "pictureList" (tak samo jak formularz, zeby
sie z tym samym kojarzylo ;) ). W oknie wlasciwosci formantu klikamy na
zakladke "inne" i w niej uaktywniamy pozycje "niestandardowe". W
wyswietlonym oknie klikamy na zakladke "images" i dodajemy/usuwamy obrazki
- proste, czyz nie? ;) Ale to nie koniec. Formant ten sam w sobie nie jest
przeznaczony do wyswietlania, a jedynie zawiera obrazki, ktore mozna
przypisac innym formantom. Zapisujemy stworzony formularz i zamykamy go.
Nastepnie na wlasciwym formularzu (tym, gdzie beda wyswietlane obrazki)
umieszczamy formant Image (MS Forms 2.0 Image) o nazwie np. "picture1". W
oknie wlasciwosci na karcie "inne" ustawiamy odpowiednio wlasciwosc
"PictureSizeMode" (do wyboru) - obrazki beda wyswietlane w takiej
wielkosci, w jakiej umozliwi to DOCELOWY formant, a nie ImageList! - i to
tyle. Nastepnie warto byloby oprogramowac zdarzenie, przy ktorym zmienialby
sie wyswietlany obrazek. Ja stworzylem sobie przycisk, ktory cyklicznie
wyswietlal mi wszystkie obrazki umieszczone w formancie "pictureList". :
Private Sub cyclePicture_Click()
' tu jest 7, bo tyle umiescilem obrazkow w liscie obrazkow
' formant ImageList jest indeksowany od 1 a nie od 0
If obrazek = 7 Then obrazek = 0
obrazek = obrazek + 1
picture1.Picture =
Application.Forms("listaObrazkow").Controls("listaObrazkow").ListImages(obrazek).Picture
End Sub
Teraz tylko pozostaje przy uruchomieniu danego formularza otworzyc
formularz z lista obrazkow (ZANIM nastapi pierwsze odwolanie do listy
obrazkow):
DoCmd.OpenForm "listaObrazkow", , , , , acHidden
Trzeba to zrobic aby miec dostep do formantu na tym formularzu (a ze jest
Hidden to nie szkodzi) - to chyba logiczne (dla mnie nie bylo, dopoki
Access nie wyswietlil komunikatu, ze nie ma otwartego formularza o podanej
nazwie ;) )
I to by bylo na tyle. Zaznaczam, ze nie testowalem tego rozwiazania dlugo,
bo wymyslilem je i zrealizowalem jakies 20 minut temu, wiec nie bylo
zbytnio czasu, wybaczcie ;)
Aha, no i male porownanie: wspomniane 7 obrazkow to bylo 7 jpeg'ow o
lacznej wadze okolo 690 kilo. Po ich umieszczeniu w liscie obrazkow rozmiar
bazy wzrosl o okolo 1400 kilo (czyli dwa razy wiecej niz wazyly same
obrazki), a gdy te same obrazki umiescilem w tabeli w polu typo "obiekt
OLE", to baza miala - UWAGA - 30 megabajtow (slownie trzydziesci
megabajtow).
dziekuje za uwage i pozdrawiam wszystkich listowiczow.
Przeczytaj wszystkie posty z tego wątku
----- Original Message -----
From: Krzysztof Naworyta <k.nawor@datacomp.com.pl
To: <pl-comp-bazy-danych-msacc@newsgate.pl
Sent: Friday, April 05, 2002 2:07 AM
Subject: Re: Microsoft Forms 2.0 ListBox
(...)
| Dobrze sie dopisuje dane i usuwa na etapie kreatora.
| Cały czas ma sie kontrole nad danymi.
| Potem petla for zapisuje do tabeli 10, 20 itd rekordow.
| "Pole listy" jest zwiazane z tabela, a kontrolka nie.
| Chyba ze "pole listy" moze dzialac jak w/w kontrolka
| o czym ja nie wiem.
(...)
Tak - pole listy (a także pole kombi) może być wypełnione danymi
dynamicznie.
Nie jest to być może tak naturalne jak w przypadku ListBox w VB, niemniej
warte przećwiczenia.
Dokonuje się to przy pomocy funkcji użytkownika z ściśle określoną ilością
i
rodzajem parametrów.
(pomijam trywialny przypadek dopisywania kolejnych wartości rozdzielanych
średnikami bezpośrednio we właściwości RowSource, przy RowSourceType
ustawionym na "Lista wartości", ze względu na ograniczoną ilość znaków
możliwych w niej do wprowadzenia)
Dość obszerny artykuł na ten temat znajdziesz pod poniższym adresem:
http://www.microsoft.com/AccessDev/Articles/Combo.HTM
zwłaszcza w ostatniej sekcji:
Creating Your Own Function to Fill a Combo Box or List Box
Przykład takiego wypełniania ale wielokolumnowego znajdziesz tu:
http://www.mvps.org/access/forms/frm0049.htm
Ja osobiście preferuję bardziej "naturale" dla accessowych kontrolek
metody.
Np. użycie roboczej tabeli o identycznej strukturze jak tabela docelowa.
Zamiast używać niezwiązanego formularza łatwiej użyć formularza opartego
na
takiej tabeli, następnie po przeniesieniu danych do tabeli docelowej jedną
komendą tabelę pomocniczą wyczyścić.
Co tyczy formularza równie dobrze odnosi się do pola listy (ms access)
Podstawowa zaleta pierwszego i drugiego rozwiązania jest taka, że
korzystasz
z kontrolek "accessowych" - co zaoszczędza kłopotów przy przenoszeniu
aplikacji na inne komputery, itd. itp.
KN
--
Archiwum grupy: http://niusy.onet.pl/pl.comp.bazy-danych.msaccess
© 2009 Najlepszy miesiąc kawalerski w Polsce !!! - Ceske - Sjezdovky .cz. Design downloaded from free website templates