Nie. Mozna dodac w dowolne miejsce obrazek(dymke) Visible=false; w zdarenie textBox_MouseMove wpisac ten obrazek visible=true, tylko potem trzeba jeszcze z powrotem to schowac(klik na dymkie, textBox, formie)
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...
To zrób tak: [syntax=csharp] private int i = 0; private void button1_Click(object sender, EventArgs e) { TextBox tb = new TextBox(); tb.Visible = true; tb.Left = 15; tb.Top = 15 + 20 * i++; tb.Name = "Link" + i.ToString(); this.panel1.Controls.Add(tb); }[/syntax]
Witam, jak w temacie jak mogę skrócić poniższy kod, z góry dziękuję [syntax=vbscript] Private Sub OptionButton1_Click() Private Sub OptionButton1_Click() For i = 6 To 21 Me.Controls("TextBox" & i).Visible = False Next End Sub Private Sub OptionButton2_Click() For a = 6 To 9 Me.Controls("TextBox" & a).Visible = True For i = 10 To 21 Me.Controls("TextBox"...
Witam. Proszę o pomoc. Mam w oknie UserForm 64 TextBoxy (wszystkie TextBoxy mają nazwę od txt1 do txt64) i chciałbym je wszystkie na raz zablokować pod pewnym warunkiem: [syntax=vb]If Index = "" Then Wszystkie_64_TextBox.Visible = False Else Wszystkie_64_TextBox.Visible = True End If [/syntax] ...czy mogę prosić o pomoc ja to zrobić w kodzie VBA?
Sprawdzałem 14 razy i dopiero teraz jak powiedziałeś ( za 15 razem) sprawdziłem i co się okazuje- w ogóle tego nie było... [syntax=csharp] <asp:TextBox ID="TextBoxADDGear" runat="server" Visible="False" ToolTip="Wprowadź nr skrzyni" Width="96px"> </asp:TextBox> [/syntax] Dodałem więc: [syntax=csharp] ontextchanged="TextBoxADDGear_TextChange...
Witam serdecznie, mam pewien problem.Mianowicie na panelu na formie,tworzę sobie dynamicznie dwa rzędy przycisków poniższym kodem: [syntax=csharp] if (POST.Checked == true) { TextBox tb = new TextBox(); TextBox tb2 = new TextBox(); tb2.Visible = true; tb2.MaxLength = 10000000; tb2.Multiline = false; tb2.Width = 180; tb2.Left = 200; tb2.Top = 15 + 20...
Nie rozumiem o co chodzi, ale może o : [syntax=csharp]textBox3.Visible = false;[/syntax] ?
Próbowałam, [syntax=vb]Private Sub OptionButton1_Click() If OptionButton1.Value = True Then ComboBox24.Visible = True TextBox7.Visible = True Frame4.Visible = True OptionButton3.Visible = True OptionButton4.Visible = True Else ComboBox24.Visible = False TextBox7.Visible = False Frame4.Visible = False OptionButton3.Visible = False OptionButton4.Visible...
Witam. Moze to sie wydawac trywialne: mam Form1 a na nim przycisk button1 teraz chciałbym, zeby po kliknieciu przycisku pojawilo sie na Form1 pole tekstowe TextBox. Obiekt TextBox chce stworzyc dynamicznie, czyli nie odwołując sie do jego parametru Visible. Napisalem cos takiego private: System::Void button1_Click(System::Object^ sender, System::EventArgs^...
Witam serdecznie, zastanawiam się nad taką kwestią. Dodaję do panelu na formie określoną ilość pól tekstowych po przez button_click, bo po osiągnięciu maximum pół na panelu w formie chciałbym zablokować możliwość dodawania następnych pól tekstowych. Myślałem,że da radę to osiągnąć po przez controls.Remove, ale chyba nie tędy droga. Czy ktoś by umiał...
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006” adresy email. Chciałbym aby pętla do każdego...
Staram się przekazywać dane pomiędzy formami na razie chce butonem z Form1 wyświetlać tekst w textBox na Form2 i odwrotnie i tu mój problem. Siędzę już nad tym kupę czasu i nie mogę rozgryźć dlaczego nie działa. Próbowałem przez analogię ale coś nie bardzo mi idzie. Poniżej załączam cody z Form1 i Form2. I teraz chodzi o to że jak wciskam butona na...
Ok. Jeśli chodzi o dodawanie pustych wierszy to wszystko jest już jasne. Mam kolejny dylemat związany oknem 'Ankieta'. Z tym już borykam się od dawna i niestety ja tego nie potrafię rozwiązać. W oknie jest filtr którym mogę sterować wyświetlaną listę pracowników. Na początku taki filtr wystarczał mi ale w trakcie mojej pracy okazało się że muszę się...
Palący problem rozwiązałem za pomocą kodu który zamienił na liczbowe wartości. If TextBox1 <> "" Then W1 = CDbl(Replace(TextBox1.Value, ".", ",")) ' * 1 End If Natomiast zamiast okienka informacyjnego użyłem Label1. With Label7 .Visible = True .BackColor = &HFFF00 End With Dziękuję za pomoc i Pozdrawiam
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...
Na etapie tworzenia pododawaj wszystkie formatki, ale tym ukrytym poustawiaj atrybut visible na false. Dla widocznego textboxa ustaw akcję np. onChange, a w jej treści zmieniaj ukrytym textboxom, które chcesz pokazać, visible na true.
Po długim boju i pomocy znajomego udało się. [syntax=vb]'Needs references to Microsoft HTML Object Library and Microsoft Internet Controls Option Explicit Sub Test() Const cURL = "http://xxx.pl/UI/Login.aspx" Const cUsername = "xxxxxx" 'REPLACE XXXX WITH YOUR USER NAME Const cPassword = "xxxxxx" 'REPLACE YYYY WITH YOUR PASSWORD Dim IE As InternetExplorer...
Dodano po 2 Przy okazji powiedz mi, jak z takiej tabeli: [db.oceny] id_oceny id_ucznia id_przedmiotu ocena data wyciągnąć np wszystkie oceny z matematyki do jednego wiersza? Bo aktualnie to tyle ile mam ocen tyle razy wyświetla się przedmiot.
Witam, mam problem. Postanowiłem napisać program okienkowy liczący miejsca przecięcia się 2 prostych przy pomocy wyznaczników macierzy. Wszystko pięknie działa, ale postanowiłem sobie, że fajnie by było jak by jeszcze rysowało te proste. I tu pojawia się następujący problem, bo po 1 nie wiem jak przeliczyć to na układ kartezjański, bo chyba będzie to...
Dodanie obsługi wyjątku pomogło, także zmiana insert_status na on z poziomu C#. Mam teraz jeszcze jedno pytanie, za każdym razem jak dodaję nowego usera to dodany on zostaje z UserId równym 0, a chciałbym, by ta wartość była dodawana do bazy na podstawie tego, co wpiszę z poziomu textboxa. Tu jest kod Formsowy [syntax=csharp]using System; using System.Collections.Generic;...
Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False Me.Height = 285 End...
Popracowałem trochę nad programem. Działa już znacznie szybciej. Mam problem chcę aby program wypisywał do TextBox'a komunikaty, za każdym razem do nowej linii. Część komunikatów będzie jednak odświeżana np komunikat o postępie. Kod obecnie wygląda następująco: Option Explicit Private Sub CommandButtonImportujPlik_Click()... On Error GoTo myErr...
Nie potrzebujesz dwóch okienek :) Rzutnik i tak wyświetla to, co masz na ekranie. Przeanalizuj kawałek kodu który na szybko napisałem w VBA w Excelu ;) Ja to zrobiłem tak: na formie umieściłem Label'e odpowiedzialne za: wyświetlanie odpowiedzi, wyświetlanie punktów zawodnika oraz 6 ukrytych (Visible = false) z X: po 3 z każdej strony, odpowiednik błędów....
Filtrowanie w datagridview jest toporne, spróbuj nieco inaczej poprzez iteracje [syntax=vbnet] For i =0 to Dgv.rows.count - 1 Dim wkom as string = Dgv.rows(i). Cells(0).value.tostring.tolower If instr(wkom, textbox1.Text.tolower,text)=0 then Dgv.rows(i). Visible=false Else Dgv.rows(i). Visible=true End if Next [/syntax]
Mam w moim pliku dodane okno (na poniższym screenie) na podstawie którego drukuję arkusz z odpowiednimi danymi. Ogólnie to wszystko jest OK. Poniżej jest kod który wszystko przesyła do arkusza. Okno pozwala na wydruk pojedynczej listy dla jednego pracownika. Jak zrobić aby okno miało możliwość wydrukować taki sam arkusz dla wielu pracowników? http://obrazki.elektroda.pl/3447331200_1...
Dim wysli As String Dim w As Byte Dim dzien As String Dim czas(2) As String Dim z As Byte Private Sub Command1_Click(Index As Integer) start.Visible = True Unload Me End Sub Private Sub Command2_Click(Index As Integer) MSComm1.Output = "5" w = 1 If Combo1 = "Pn" Then dzien = "0" If Combo1 = "Wt" Then dzien = "1" If Combo1 = "Sr" Then dzien = "2" If...
Witaj ponownie. Niestety nie radze sobie z tym, okazuje się ze jestem zielony. Otwieranie i zamykanie portu nie ma z tym problemu ale dalej stoję w kropce z odbieraniem znaków. Wysyłam około co 1 sekundę po kilka znaków liczby i słowa. Na terminalu nie ma problemu. To kod który zmąciłem ale dalej dobrze nie rozumiem [syntax=vbnet]Public Class Form1...
przecież instrukcja myIntForm1 = form2.MyInt jest wykonywana zaraz po instrukcji Form2.Dispose(). Niezupełenie. Metoda .Dispose() formy 2 jest wykonywana na końcu "klamerki" using { }, samo zamknięcie tej formy metodą .Close() nie pociąga za sobą wykonania .Dispose(). Zobacz jak to robią na The two conditions when a form is not disposed on Close is...
Ale przedtem trzeba mimo wszystko spróbować. dzięki znalazłem kod lecz nie wiem co robię źle proszę o pomoc. chciałbym aby nadawany został CodName na następny w kolejności oto kod który znalazłem: [syntax=vb]ThisWorkbook.VBProject.VBComp... = "NewCodeName"[/syntax] przy wykasowaniu arkusza/y który/e jest/są niepotrzebny/e Excel...
co dostajesz na porcie ?? tzn co to za sterownik albo czujnik albo w ogóle co to jest ?? tak jak ci napisałem ... [syntax=vb] Imports System.Collections.ObjectModel Imports Microsoft.VisualBasic.FileIO Imports System.Windows.Forms.DataVisualization.C... Imports System.IO Imports System.IO.Ports.SerialData Imports System.Text Imports System.IO.Ports...
sprawdź to [syntax=vb]Private Sub CommandButton1_Click() Dim nazwa As String nazwa = ActiveWorkbook.Name Set coalainput = Nothing Set coalainput = CreateObject("Excel.Application") coalainput.Workbooks.Open TextBox2.Text, 2 Application.DisplayAlerts = False Workbooks(nazwa).Sheets("szablon").Range... coalainput.Sheets("Arkusz1").Range(TextB...
Witam, napisałem kod, który wstawia mi zdjęcia, pozycjonuje i formatuje tak jak bym chciał, problem jest jedynie taki że w przypadku jeśli tych zdjęć jest mniej niż 6 (maksymalna założona liczba) to wyskakuje błąd (brak zdjęcia i koniec makra). Nie mogę poradzić sobie z obsługą błędu w tym przypadku. że jeśli któregoś zdjęcia/zdjęć nie ma to operacje...
Witam/cześć. Zmagam się z małym problemem. W aplikacji będę sterował ponad setką silników. Dla każdego urządzenia w wizualizacji jest przewidziana "stacyjka" z trybem ręcznym wykonana jako faceplate. Faceplate ma podłączoną jedną zmienną strukturalną deklarowaną przy wywołaniu okna. Skrypt wywołania wygląda jak poniżej: export function Rectangle_65_OnTapped(item,...
adzę używać parametrów w zapytaniu, a nie tworzyć w ten sposób stringa z dla cmd... De gustibus no disputandum est.... 1. Przede wszystkim moja rada - jeśli konstruujesz kwerendy w kodzie (składasz "string'i") wyświetlaj sobie je - i sprawdzaj wprost na bazie danych - czy są poprawne, czy błędne. Szukanie "zagubionego apostrofu/przecinka" - to jak...
dzięki sugestii kinggustav znalazłem sporo informacji i przykładów w necie - projekt powstał i działa ;) jest również możliwość obsługi chrome oraz firefox poprzez dodanie do vba "skryptu" selenium przykładowo Dim ie As SHDocVw.InternetExplorer Dim Nrrej As String Dim URL As String Dim btnSprawdz As Object Nrrej = TextBox11.Text Nrvin = TextBox12.Text...
Sorki ale ja jestem początkujący w VB tak to wygląda w całości [syntax=vb] Option Explicit On Imports System Imports Microsoft.VisualBasic Imports System.Configuration.ConfigurationSettin... Imports System.Windows.Forms Imports System.IO Imports System.Data Public Class Form1 Public comm_stat As Integer Public comm_rit As Integer Public voltage As String...
Witam! Mam pewien problem z wypełnieniem programowo pola tekstowego formularza. Mam stworzony dokument Word-a w którym jest pole tekstowe formularza o nazwie "Tekst1" i CheckBox o nazwie "Wybór1". Chciałbym aby po otwarciu istniejącego dokumentu móc programowo odczytać-zapisać pole tekstowe i zaznaczyć CheckBox-a. Dokument jest w trybie ograniczonego...
Chciałbym prosić o pomoc w poradzeniu sobie z błędem jak w temacie. Pracuje nad excelowym makrem w którym wykorzystuję metodę „AfterUpdate()” , w trakcie wykonywania makra pojawia się czasem powyższy błąd czego efektem, najczęściej jest zawieszenie się excela i ekran odzyskiwania dokumentu. Przyczyną błędu wydaje mi się, że wiem co jest....
access visible visible false visible button
cyfrowy polsat częstotliwość telmor activa filtr silnika odkurzacz karcher
Delonghi ESAM 6900 – stały napis Delonghi po włączeniu, brak startu ekspresu Mercedes W211 błąd 5408 – AIRMATIC nieszczelność lub długi czas napełniania