Odinstaluj Bonanza Deals (remove only), Click Caption 1.10.0.4, greatsaaving, Remote Desktop Access (VuuPC), Remove 4HD, saviNSahop, SeofftCouap, Skype Packages, WebCake 3.00. Pobierz i uruchom jako administrator AdwCleaner https://toolslib.net/downloads/finish/1/ Kliknij Scan i później Cleaning. Pokaż nowe logi z FRST.
Odinstaluj Click Caption 1.10.0.5,GamesDesktop 008.22,Ge-Force,GoodGameEmpire,HQ-Video-... Security Scan Plus,omiga-plus uninstall,Solution Real.Pobierz i uruchom AdwCleaner https://toolslib.net/downloads/finish/1/ Kliknij Szukaj i później Usuń. Pokaż nowe logi z FRST.
Odinstaluj Hold Page.Otwórz Notatnik i wklej: GroupPolicy: Group Policy on Chrome detected <======= ATTENTION CHR HKLM\SOFTWARE\Policies\Google: Policy restriction <======= ATTENTION SearchScopes: HKU\S-1-5-21-3018960631-3123762259-27181... -> DefaultScope {9E359ED8-AFAD-4FA7-94B3-3FD1233B9492} URL = SearchScopes: HKU\S-1-5-21-3018960631-3123762259-27181...
Odinstaluj: Amazon Browser App (HKLM-x32\...\{0A7D6F3C-F2AB-48ED-BE23-9... (Version: 1.0.0.0 - Amazon) Click Caption 1.10.0.2 (HKLM-x32\...\ClickCaption_1.10.0.2) (Version: 1.10.0.2 - ClickCaption) <==== ATTENTION Obok frst.exe utworz plik fixlist.txt z zawartoscia: Task: {301E7582-0DEA-40C8-91C7-76EEEBB1AAA3} - System32\Tasks\LaunchSignup...
Odinstaluj Click Caption 1.10.0.2,RegClean-Pro,Softonic for Windows.Otwórz Notatnik i wklej: Task: {909DF798-1047-4B12-93D1-1F3341056E94} - System32\Tasks\RegClean Pro_UPDATES => C:\Program Files (x86)\RCP\RegCleanPro.exe Plik zapisz pod nazwą fixlist.txt i umieść obok FRST w tym samym folderze. Uruchom FRST i kliknij w Fix.
A coś takiego?: Private Sub ToggleButton1_Click() If ToggleButton1.Caption = "CLICK" Or ToggleButton1.Caption = "NOT ON TOP" Then ' SetWindowPos mlHwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' ToggleButton1.Caption = "ON TOP" ' Me.lbl9 = "Always on top - OFF" SetWindowPos mlHwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ToggleButton1.Caption...
Otwórz notatnik systemowy i wklej: HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://www.mystartsearch.com/web/?type=d... HKLM\Software\Wow6432Node\Microsoft\Inte... Explorer\Main,Search Page = http://www.mystartsearch.com/web/?type=d...
http://cpw.net.pl/delphi/kurs/11,74/ Click(Sender: TObject); zwykłe kliknięcie na komponencie; (np. wstawiamy na formę Button i w zdarzeniu OnClick piszemy Form1.Caption:='Click';) DblClick(Sender: TObject); to samo co wyżej, lecz akcja zachodzi dopiero po dwukrotnym kliknięciu
Nie sciagaj programow z dobrychprogramow itp, skoro nie umiesz. Odinstaluj: Click Caption 1.10.0.2 (HKLM\...\ClickCaption_1.10.0.2) (Version: 1.10.0.2 - ClickCaption) <==== ATTENTION Google Toolbar for Internet Explorer (HKLM\...\{2318C2B1-4965-11d4-9B18-00902... (Version: 7.5.5111.1712 - Google Inc.) Uzyj AdwCleaner, opcja Scan i Clean/Szukaj...
Nie dales frst.txt, popraw. Odinstaluj: Ask Toolbar (HKLM\...\{4F524A2D-5637-4300-76A7-A758B... (Version: 12.19.0.105 - APN, LLC) <==== ATTENTION Click Caption 1.10.0.2 (HKLM\...\ClickCaption_1.10.0.2) (Version: 1.10.0.2 - ClickCaption) <==== ATTENTION Ge-Force (HKLM\...\Ge-Force) (Version: 1.35.9.29 - iWebar) <==== ATTENTION HQ-Video-Pro-2.1cV17.11...
Masz wiecej szkodliwych programow, niz tych, ktore sama zainstalowalas... Odinstaluj: AllSaver (HKLM-x32\...\{F5853CDF-2C63-6D1D-B286-C... (Version: - "") <==== ATTENTION BrowseStudio (HKLM\...\BrowseStudio) (Version: 2014.11.19.142156 - BrowseStudio) <==== ATTENTION! CheapCoupon (HKLM-x32\...\{37476589-E48E-439E-A706-5...
Zdaje się, że wystarczy porównać wartość w label'u z kolumną N. Nie są jasno określone granice, więc kombinuj ze znakiem porównania tak, żeby Ci pasowało. Np gdzie zaliczyć 0,1? Mieści się w Z3 (do) oraz w Z4 (od). Zwykle linia należy do pola, czyli powinno być <= [syntax=vb]Private Sub CommandButton1_Click() Label1.Caption = TextBox1.Value * Label3.Caption...
Otwórz Notatnik i wklej: Task: {69F14EF2-435E-4D43-9C1F-D28008684211} - System32\Tasks\{222A445F-87E2-4E2B-9098-... => Firefox.exe http://ui.skype.com/ui/0/5.10.0.116/pl/a... HKLM-x32\...\Run: Plik zapisz pod nazwą fixlist.txt i umieść obok FRST w tym samym folderze. Uruchom FRST i kliknij...
Otwórz Notatnik i wklej: HKLM\...\Run: Plik zapisz pod nazwą fixlist.txt i umieść obok FRST w tym samym folderze. Uruchom FRST i kliknij w Fix.
Odinstaluj Yahoo! Search.Pobierz i uruchom AdwCleaner https://toolslib.net/downloads/finish/1/ Kliknij Szukaj i później Usuń. Otwórz Notatnik i wklej: Task: {142F0F0C-4A30-4ECE-B993-5FC0B71F15BB} - System32\Tasks\Yahoo! Search Updater => C:\Users\Eliza\AppData\Local\Pay-By-Ads\... Search\1.3.15.4\dsrsetup.exe Plik zapisz pod nazwą fixlist.txt...
Przenieś do Change (zdaje się, że Click możesz wyrzucić) [syntax=vb]Private Sub lstFiltr_Change() Dim i As Long, a As Long, ark As Worksheet Set ark = Sheets("Lista pracowników") a = 0 For i = 0 To lstFiltr.ListCount - 1 If lstFiltr.Selected(i) = True Then a = a + 1 End If Next i Label14.Caption = a If Label14.Caption = 0 Then cmbEtat1.Enabled = True...
Odinstaluj Akamai NetSession Interface,Click Caption 1.10.0.6,KMP Service,Optimizer Pro v3.2.Otwórz notatnik systemowy i wklej: Task: {081ECE07-C731-435F-AAB2-E5AFDCFEFC8D} - \DSite No Task File <==== ATTENTION Task: {61C1E9F4-362C-4F8E-BC07-FB6A012AA751} - \SomotoUpdateCheckerAutoStart No Task File <==== ATTENTION Task: {ED73A179-81EB-40FA-AFCD-FBBCBC651620}.....
Odinstaluj Click Caption 1.10.0.4.Otwórz notatnik systemowy i wklej: Task: {0CB9D60B-38BE-4725-BBCA-33A9CAAE5E9B} - System32\Tasks\DealPlyLiveUpdateTaskMach... => C:\Program Files (x86)\DealPlyLive\Update\DealPlyLive.exe <==== ATTENTION Task: {29F3F62C-EE8E-4747-9BCA-7C6857AB2412} - System32\Tasks\DealPlyLiveUpdateTaskMach... => C:\Program...
mam rozwiazanie w one click Form2.Show; Form1.Hide; tylko teraz jak otworze projekt i chce edytowac unit2 to mi jakies glupoty wyskakuja object Form2: TForm2 Left = 192 Top = 114 Width = 870 Height = 500 Caption = 'Form2' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style...
(at)waski1133 podany wczesniej fixlist, nie jest poprawny. Odinstaluj: Click Caption 1.10.0.2 Jailbreak the Patriarchy ToutApp Email Tracking Templates REACHit YAC(Yet Another Cleaner! Zainstaluj https://support.microsoft.com/en-us/kb/2... Obok frst.exe utworz plik fixlist.txt z zawartoscia: CloseProcesses: C:\Program Files (x86)\Elex-tech\ Task:...
Nadal post pod postem... Odinstaluj: allday savings (HKLM\...\6309A20B-AE43-4AF1-9139-6C217C... (Version: 2.0.1 - allday savings) best-markit (HKLM\...\B4051294-8032-41FB-4EDF-248BBA... (Version: - best-markit-software) DLL Suite 2013 (HKLM\...\{885843E7-6CAC-4791-B7BF-1CD51... (Version: - ) Dll-Files Fixer (HKLM\...\Dll-Files Fixer_is1)...
Ok, zamyka formularz, a jak zrobić żeby to co zostało wklejone przez program do excela otworzylo sie po zamknieciu formularza ? (wklejony znaczy dodane np. Range("Arkusz1!A7") = Label2.Caption) Edit: owszem arkusz zostaje, ale znika mi z paska i musze ponownie go otwierac poprzez tzw. double click z pulpitu .. Nie bardzo rozumiem. Nic tu nie znika...
Otwórz notatnik systemowy i wklej: Task: {6E108D98-DF21-4951-8A33-A1F231B9460F} - System32\Tasks\Microsoft\Windows\Mainten... => Rundll32.exe C:\PROGRA~1\COMMON~1\System\SYSPLA~2.DLL ,Command701 update2 <==== ATTENTION Task: {780FE46C-55E3-4DF4-AF90-620023B580E3} - System32\Tasks\FacebookUpdateTaskUserS-1...
Trzeba zamknąć... W kodzie przycisku Private Sub CommandButton1_Click() Range("B1") = Frame1.ActiveControl.Caption Unload UserForm1 'to tu End Sub
Między śniadaniem a kawą przyszło mi do głowy takie rozwiązanie: Wypróbuj: http://obrazki.elektroda.net/9_123900145... (we właściwościach Timera zostaw Interval=0) Z takim kodem Public kontr As Byte Private Sub Command1_Click() If kontr = 1 Then Command1.Caption = "Start" Timer1.Interval = 0 kontr = 0 Else Command1.Caption = "Stop"...
Odinstaluj: Click Caption 1.10.0.5 (HKLM-x32\...\ClickCaption_1.10.0.5) (Version: 1.10.0.5 - ClickCaption) <==== ATTENTION DigiHelp (HKLM\...\DigiHelp) (Version: 2014.12.24.082224 - DigiHelp) <==== ATTENTION! omiga-plus uninstall (HKLM-x32\...\omiga-plus uninstall) (Version: - omiga-plus) <==== ATTENTION Remote Desktop Access (VuuPC) (HKLM-x32\...\VOPackage)...
.MatchRequired = True (przy nie spełnionym warunku chciałbym aby wyskakiwalo okienko z instrukcja co nalezy zrobic) A przykład Ms z pomocy podręcznej się nie sprawdza ? [syntax=vba] Private Sub UserForm_Initialize() Dim i As Integer With UserForm1 .Caption = "Window" With .CheckBox1 .Caption = "MatchRequired" .Value = True End With With .ComboBox1...
Odinstaluj Click Caption 1.10.0.4, Dynamo Combo, Gameo, Smart File Advisor 1.1.6, Yahoo! Search. Otwórz notatnik systemowy i wklej: Task: {31D798F9-06E2-47E2-A2D5-E62A41A8B889} - System32\Tasks\Yahoo! Search => C:\Users\Bart\AppData\Local\Pay-By-Ads\Y... Search\1.3.25.0\dsrlte.exe Plik zapisz pod nazwą fixlist.txt i umieść obok FRST w tym samym...
czy ta petala wpisuje w postaci listy "wynik" wiecej nizeli z jednego CheckBox'u Nie, bo napisałeś: aby sprawdzila czy jest zaznaczonay TYLKO jeden CheckBox Ta pętla jest rozbudową tej z początku wątku, tyle że na końcu doszedł potrójny warunek if. Po przeleceniu wszystkich checkboxów w zmiennej i masz ilość zaznaczonych przez użytkownika checkboxów,...
Nieco inny kod, bardziej stabilny. Aczkolwiej bez prawidłowo działającej funkcji start/stop. Tj. po zatrzymaniu i ponownym wystartowaniu licznik zeruje się ... Dodano po 3 ?
Czyli jak zdebugjesz to okienko to po wpisaniu w pola tekstowe wartości chcesz aby pojawiły się w tabelce ? jak da radę to tak Przypisz kod do klawisza OK. Tu masz przykład jak przepisać treść pola "przeznaczenie" do arkusza. [syntax=vb]Private Sub CommandButton1_Click() If CommandButton1.Caption = "OK" Then Range("C9").Value = TextBox1 'przeznaczenie...
Andie, W Listbox1 mam 5 kolumn, w ostatniej kolumnie sa ceny ktore dostaja sie tam z textbox, przeliczenie chcialbym miec za kazdym razem po dodaniu czegos do listy o ile jest to mozliwe ponizej kod, ewentualnie dwa posty wyzej zalacznik z plikiem [syntax=vbA] Function SumaListbox(LBox As MSForms.ListBox, kolumna As Integer) As Double Dim i As Integer...
A czemu nie tak - w ogóle to dwa razy ładujesz jquery, tak jak pisałem lekki burdel masz: [syntax=html4strict] <script type='text/javascript' src="js/jquery-1.7.2.min.js"></scr... <script type='text/javascript' src="js/jquery-ui-1.8.18.custom.min.js"&... <script type='text/javascript' src="js/jquery.smooth-scroll.min.js">...
Propozycja dla wierszy (podstawa to nazwa wiersza np DZIAŁ1 i ta sama nazwa [caption] checkboksa. Zrozumiesz czy tłumaczyć na czym polega? [syntax=vbnet] Private Sub CheckBox1_Click() ostatni = Cells(Rows.Count, "A").End(xlUp).Row If CheckBox1 = True Then Ukr_wier (CheckBox1.Caption) Else Rows.EntireRow.Hidden = False End If End Sub Private Sub CheckBox6_Click()...
Może należałoby wartość zmiennej przypisać w Form_Load()? Na przykład: Public i200 As Integer Private Sub Command1_Click() i200 = i200 - 1 Label1.Caption = i200 End Sub Private Sub Form_Load() i200 = 20 End Sub U mnie to działa.
Odinstaluj Click Caption 1.10.0.5, FlvPlayer, PriceFountain, Update for PriceFountain, WindowsMangerProtect20.0.0.1277. Otwórz notatnik systemowy i wklej: Task: {90C3D99F-4C09-477B-ACCD-6FB81E5B3DE9} - System32\Tasks\BartekReutilizingHorology... => Rundll32.exe MinderContortion.dll,main 7 1 <==== UWAGA Task: {EE654A27-F137-4A1E-A2F9-D4BD55427366}.....
UKŁAD GRAFICZNY 03 - Video Adapter ---------------------------------- 0301 - Card Name : Mobile Intel(R) 4 Series Express Chipset Family 0302 - Manufacturer : Intel Corporation 0303 - Chip Type : Mobile Intel(R) 4 Series Express Chipset Family 0304 - DAC Type : Internal 0305 - Device Key : Enum\PCI\VEN_8086&DEV_2A42&SUBSYS_3A0217... 0306 - Display...
Witam Chciałem dodać przycisk typu ON/OFF ukrywa i odkrywa obszar Mam stworzone dwa makra makro1 ukrywa obszar makro2 odkrywa obszar W sieci znalazłem sposób który pozwala na taką sztuczkę ale nie wiem gdzie to podstawić do obecnych wartości aby to działało. znaleziony kod Private Sub ToggleButton1_Click() With ToggleButton1 If .Value Then Call...
Zdecyduj się na jednego antywirusa i tego zostaw, drugiego odinstaluj. Odinstaluj Click Caption 1.10.0.2, ConvertAd, Optimizer Pro v3.2, Remote Desktop Access, sweet-page uninstall i WindowsMangerProtect20.0.0.1277. ShortcutWithArgument: C:\Users\Rybki\AppData\Roaming\Microsoft... Menu\Programs\Internet Explorer.lnk -> C:\Program Files\Internet...
Witam To teraz pytanko: Czy calość powinna być w arkuszu(nazwa arkusza) czy w poszczególnych modułach. To moje pierwsze takie dzieło, więc proszę o wyrozumiałość.. :D. pozdrawiam Dodano po 40 Witam A teraz już ogarnąłem. Wszystko działa, tzn, start/stop. Dziękuje za pomoc raz jeszcze. Pozdrawiam Dodano po 2 Poniżej wklejam kod, może się komuś na coś...
szablon nie zawiera żadnego modułu tylko posiada pliki w javie, wrzuciłem pliki które odpowiadają za slidera jquery.nivo.slider /* * jQuery Nivo Slider v2.7.1 * http://nivo.dev7studios.com * * Copyright 2011, Gilbert Pellegrom * Free to use and abuse under the MIT license. * http://www.opensource.org/licenses/mit-l... * * March 2010 */ (function($)...
Witam Piszę prosty serwerek z wykorzystaniem TidHTTPServer. Mam problem z uploadem plików do serwera, tzn. upload działa ale plik zapisany na serwerze jest większy od wysłanego przez przeglądarkę. Okazuje się że doklejony zostaje nagłówek. W jaki sposób „wyłuskać” sam plik bez nagłówka? Proszę o jakieś wskazówki. Oto kod: unit Unit1; interface...
Coś w tym rodzaju Definiujesz sobie w UserFormie kontrolkę ListBox1. [syntax=vbscript]ListaWartosci=Array ("0", "0,05", "0,08", "0,23") ListBox1.List = ListaWarosci . Dim Stawka As String Dim Kwota As Double . Private Sub ListBox1_Click() Stawka = ListBox1.Value Kwota=Val (Stawka) * Val (WartoscZTextboxa) Label1.Caption = Str (Round (Kwota, 2)) End...
ściągnij sobie darmowego windows media encoder . Jest to m.in. serwer live-video, obojętnie czy film z pliku, czy strumień z kamery. Zeby odebrać obraz trzeba napisać kilka linijek w html <HTML><HEAD><TITLE>Liv... video</TITLE></HEAD> <BODY bgcolor="#000000"> <OBJECT ID="MediaPlayer" WIDTH=320...
Problem dotyczy Chrome? Jezeli tak to wyglada to na ten sam blad: https://knowledge.symantec.com/support/s... > 1. MalwareBytes - wykrył 165 zagrożeń > 2. AdwCleaner - wykrył 310 zagrożeń Wszystko zostalo usuniete? Bo nie wyglada na to. Odinstaluj: Browser Configuration Utility Click Caption...
Witam! Zacznę tak: jeżeli to zły dział, to proszę o przeniesienie. :D A co do mojego problemu to dalej.:) Ściągnąłem sobie program Windows Media Encoder w wersji 9 chcąc nadawać obraz z kamerki internetowej (ew. mikrofonu) na stronkę internetową. Zrobiłem to tak: 1. Zainstalowałem Windows Media Encoder 9 2. On zapytał mnie o to co chcę robić. Zaznaczyłem...
Witam, znalazłem taki kod do odtwarzania mp3, dobrze działa, oryginalny kod nizej: Option Explicit ' Play the MP3 file. End Sub Private Sub cmdPlay_Click() If cmdPlay.Caption = "Play" Then mmcAudio.FileName = txtFile.Text mmcAudio.Command = "Open" mmcAudio.Command = "Play" cmdPlay.Caption = "Stop" Else...
To jest plik cb_config.js . Możesz powiedzieć mi gdzie to wkleić ? [syntax=javascript]/* // ClearBox Config File (JavaScript) */ var // CB layout: CB_WindowColor='#fff', // color of the CB window (note: you have to change the rounded-corner PNGs too!), transparent is also working CB_MinWidth=200, // minimum (only at images) or initial width of CB window...
Splitem go i policz. Np [syntax=vb]Private Sub CommandButton1_Click() Dim a As Double Dim b As Double Dim dr As Integer a = TextBox1.Value b = TextBox2.Value liczba = Split(UserForm1.ComboBox1.Value, ",") dr = Len(liczba(1)) Me.Label5.Caption = Round(a + b, dr) End Sub[/syntax]
Mam taki problem że Combobox pobiera dane tylko z 4 komórek, ja mam dane około 4000 komórek pomóżcie co innrgo zrobic sterowania ale to ???????? :) Private Sub ComboBox1_Change() Label1.Caption = Sheets("Arkusz1").Cells(ComboBox1.ListIn... + 2, 1) End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Click() End Sub
Witam, mam problem z obsługą formularza z opcjami wyboru. Chciałam by przy wyborze drugiej lub trzeciej opcji aktywowały się dodatkowe pola tekstowe poniżej do wpisywania numerów/liczby pytań ale to zupełnie nie działa Co napisałam nie tak lub co powinna jeszcze dopisać w kodzie aby te opcje działały prawidłowo? Będę wdzięczna za pomoc:) Plików z rozszerzeniem...
Poradziłem sobie z tą pętlą: Wklejam może się komuś przyda. KOD: Private Sub CommandButton1_Click() Dim i As Integer i = 1 For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then If ctrl = True Then If i > 0 Then lst = lst & Chr(10) & ctrl.Caption & Me.Controls("Textbox" & i).Text Else...
Excel 2003: (Nie mam zainstalowanego, mogę się mylić, proszę kolegów o ew. poprawkę. Chodzi o wstawienie przycisku ActiveX) W menu: 'widok' wybierz: 'paski narzędzi' i 'przybornik formantów'. Z przybornika wybierz: 'przycisk'. W okienku 'makra' wybierz makro o nazwie 'actualize' lub W edytorze VB, przy zdarzeniu 'NazwaPrzycisku_Click()' wpisz nazwę...
Witam Dlaczego w małym programie (z załączonego źródła), po skompilowaniu w Dev-C++ 5.11, nie pokazuje się tekst w wyniku wykonania instrukcji po zaistnieniu zdarzenia wciśnięcia przycisku? Co zrobić żeby ten tekst się pojawił i zastępował już istniejący w tym miejscu? Co zrobić żeby pojawiał się tekst w większej liczbie linii, gdy zmienna wyraz będzie...
W najprostszej formie: do formularza dodajesz niepowiązane pole tekstowe i tyle przycisków, ile liter, każdemu z podpiętym zdarzeniem kliknięcia i takim tekstem (Caption) jak litera którą ma wpisywać. Wstawiasz taki kod (przykład dla 4 liter): http://obrazki.elektroda.pl/4148772400_1...
Dziękuję bardzo. Czy takie rozwiązanie jest dobre – jak w kodzie poniżej? Czy jest jakieś niebezpieczeństwo, że jakiś inny komunikat z systemu albo innej aplikacji mi coś popsuje? Jak przekazać uchwyt okna jako parametr w procedurze TrescWatku()? Jak podaję TrescWatku(HWND UchwytOkna) to wychodzi błąd. Nie wiem też, dlaczego WaitForSingleObject...
Zrobiłem to co napisałeś i dalej to samo. [syntax=text] Game Booster Diagnose Report v1.0 Version: 3.4.0.1491 Date: 2015-07-12 16:24:42 ---------------------------------- 01 - Operating System ---------------------------------- 0101 - Operating System : Windows 7 Ultimate 64-bit (6.1, Build 7600) (7600.win7_rtm.090713-1255) 0102 - Language : Polish...
Witam. Próbuję w VB5 napisać mały program. Mam problem z dostępem do zmiennej globalnej. Moja aplikacja posiada dwa przyciski (buttony), jedną kontrolkę Label i Timer. Tworzę zmienną Time, która powinna być globalna. Przyciskiem Command2 uruchamiam timer1 który ma ustawiony interwał na 100ms i zwiększa mi o 1 zmienną Time. Gdy wcisnę przycisk Command3...
Witam. Zalaczam: V*i*s*u*a*l B|a|s|i|c - L|e*k*s*y*k*o|n z H*e|l*i|o*n|u.Nie wiem czy jest dobry.Jesli jestes zorientowany w programowaniu pod windows ogolnie to powinno Ci sie przydać. Przed ściągnięciem zalecam jednak zerknąć na spis treści. Wstęp11 Rozdział 1. Podstawy obsługi programu VB13 1.1.Menu programu13 1.1.1.File13 1.1.2.Edit16 1.1.3.View20...
Mam problem z bazą danych. Wywala mi błąd przy uruchomieniu kodu: "run-time error '3113' Nie można uaktualnić 'ID_Produktu'; pole nie może być uaktualnione" Private Sub Dodaj_Click() If Me.txtID_Produktu.Tag & "" = "" Then CurrentDb.Execute "INSERT INTO Produkty(ID_Produktu, Nazwa, Ilosc, Cena, Podatek) "...
Podobne rozwiązanie zasilacza regulowanego przez port LPT. Tym razem o większej wytrzymałości prądowej do prawie 1A. Ograniczenie prądowe jest także sterowane przez LPT sygnałem Strobe i ALF Prosty program w Visual Basic 6.0 Private Sub Command1_Click() Out &H37A, 3 End Sub Private Sub Command2_Click() Out &H37A, 2 End Sub Private Sub Command3_Click()...
Temat wisi od roku, a odpowiedzi nie ma. W VB.net można wykorzystać Microsoft WMI Scripting Library. (wbemdisp.tlb) Skrypty WMI są łatwe w użyciu, ale niestety VB6 nie wszystkie identyfikuje. Dla .net było by: Tworzymy projekt-dodajemy CommandButton-dodajemy ListView. Tworzymy referencję do Microsoft WMI Scripting Library. Option Explicit Private Const...
czy ma ktoś jakąś instrukcję jak krok po kroku zrobić taki kalendarz??? nie proszę o gotowca (no chyba że ktoś jest bardzo życzliwy i pozwoli zaoszczędzić mi kilka dni a raczej nocy pracy) chodzi mi o instrukcje miło by było z jakimś screenem albo coś. A proszę, kilkadziesiąt minut pracy i cierpliwości ;) - może żadna francja-elegancja, ale coś podobnego...
Private Sub CommandButton1_Click() Text = "" For Each ctr In Me.Controls If TypeOf ctr Is MSForms.CheckBox Then If ctr = "True" Then Text = Text + ctr.Name + Chr(10) End If Next ActiveSheet.Range("A1")... = Text Unload Me End Sub Witam. Dziękuje za pomoc i przepraszam że tak długo nie odpisywałem....
Witam Wszystkich. Szukam pomocy w napisaniu do Corela 2018 kodu VBA w którym będę mógł wybrać z określonej lokalizacji plik pdf lub eps, https://obrazki.elektroda.pl/2043852100_... a jaśniej: z listy 'Dysk sieciowy' wybieram zmapowany dysk sieciowy. W tym przykładzie N:\ https://obrazki.elektroda.pl/8073350000_... z...
Witam mam mały problem z generatorem który zakupiłem , autor zmienił dane kontaktowe i niestety nie mam możliwości uzyskania pomocy z jego strony. Z racji iż skrypt mam na własność nie chciałbym udostępniać całego kodu źródłowego.Jest to generator opisu plików popularnego serwisu.Mówię od razu iż nie łamię praw autorskich. Mianowicie : 1.Skrypt mam...
Witam Dlaczego w bloku obsługującym Przycisk1 dane z Tablica1 przekopiowane do zmiennej wskaźnikowej WskaznikTablica, można wyświetlić przez MessageBox, a w bloku obsługującym Przycisk2 danych przekopiowanych z Tablica2 do zmiennej wskaźnikowej WskaznikKoniec, nie można wyświetlić przez MessageBox? Poniżej kod programu. [syntax=c]// źródło: domyślny...
Acronis Disk Directorniestety nie widzki dysku k mimo ze jest na mój komputer. Widzi tylko dyski HD. Dodano po 2 malenchel to wyszło z tego programu: Dodano po 6 A to z CjipEasy: Volume : K:\ Total Space: 0 Devices ID : VID = 090C PID = 3000 Serial Number : Product Revision : 1000 Manufacturer : Product Name : USB MEMORY BAR MaxPower : 100mA Controller...
Private Sub CommandButton1_Click() Dim a, b, c, d, e, f, g, h, i, j, k, suma, reszta, kontrol As Integer Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, suma1, kontrol1 As Integer Dim pesel, nip, plec, plec1, plec2 As String Dim m, r, rok As Integer pesel = TextPESEL.Text a = CInt(Left(pesel, 1)) b = CInt(Mid(pesel, 2,...
Dobrze, że się zapytałam :D Wklejam całość. Będzie bezpieczniej [syntax=html4strict] <html expr:dir='data:blog.languageDirection' xmlns='http://www.w3.org/1999/xhtml' xmlns:b='http://www.google.com/2005/gml/... xmlns:data='http://www.google.com/2005/g... xmlns:expr='http://www.google.com/2005/g... <head> <link href='http://fonts.googleapis.com/css?fa...
Dzieki bardzo za podpowiedz. A teraz jeszcze jedeno pytanie, jak umiescic ten przycisk w arkuszu excela i zgrac go z kodem? W Excelu 2003: - klikasz prawym przyciskiem w puste miejsce na pasku i klikasz "Visual Basic". - z menu które się pokaże klikasz "Przybornik formatów" - ikona młotka i klucza, pokaże się przybornik. - wybierasz z niego "Przycisk...
Zmodyfikowałem filtr i dodałem powiększone opcje dla wszystkich czterech pozycji. Sam filtr działa poprawnie ale tylko jeśli wybiorę z każdej pozycji jedną opcję. Po wybraniu już dwóch i więcej opcji wywala błąd. Filtr wybrane opcje zapisuje do okna 'Label' a z niego informacje idą do filtra. Jak przerobić filtr aby wziął pod uwagę więcej pozycji jak...
Uwagi: 1. Nie ustawiaj na sztywno w projekcie formatki, to co potem ustawiasz programowo - ilość kolumn "ListBox2" 2. Czytaj składnię poleceń/obiektów i ich ograniczenia - maksymalna liczba kolumn w "ListBox" to 10, a w pętli próbujesz ustawić wartości dla 13 kolumn: 912728 Po wpisaniu daty w "TextBox" klikasz pole "Data" w "ListBox1", zwrotnie do pola...
click click click label1 caption double click
odkurzacz gniazdo łożysko numer administratora sprawność klimatyzatora
Piaggio X8 125 2006 – brak iskry, masa regulatora, czarny przewód, punkty masowe Piaggio X8 125 2006 – brak iskry po spaleniu akumulatora, trzask przy rozruchu, diagnostyka układu zapłonowego