A gdzie masz czytanie z pliku: [syntax=vbnet]linia = LineInput(NR)[/syntax]?
A może jeszcze byś napisał czy robisz winforma czy może w Excelu coś skubiesz... ogólnie zdefiniować ilość dni możesz tak... [syntax=vbnet] dim Next100Day As Date = DateAdd(DateInterval.Day, 100, DateTime.Now) [/syntax] to sto dni do przodu z minusem będzie do tyłu, możesz użyć również miesięcy lub lat... [syntax=vbnet] dim Next2Month As Date = DateAdd(DateInterval.Month,...
Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...
Witam Czy nie chodzi o takie coś? [syntax=vbnet]With Sheets(ComboBox1.Value) i = .Cells(Rows.Count, 2).End(xlUp).Row + 1 .Cells(i, 2) = TextBox1 .Cells(i, 3) = TextBox2 .Cells(i, 4) = TextBox3 'i tak dalej End With[/syntax]
Ale co konkretnie cię interesuje albo z czym konkretnie masz problem... Zasada jest bardzo prosta, połączenie przez port com wymaga jego konfiguracji, i albo robisz to ręcznie na sztywno, albo tworzysz klasę w której go konfigurujesz, tak czy inaczej musisz podać pewne parametry początkowe portu. Potem czekasz na wystąpienie zdarzenia OnReceive (a dokładniej...
A nie jest przypadkiem błąd w selekcie? [syntax=sql]select dbnazwa from [MASTER].dbo.BAZA w join master.dbo.sysdatabases s on s.name = w.dbnazwa where prgkod = 1 order by dbnazwa[/syntax] A niżej masz: [syntax=vbnet]LookUpEdit1.Properties.Val... = "ID_BAZY" LookUpEdit1.Properties.DisplayMember = "DBNAZWA"[/syntax] id_bazy nigdzie nie selectujesz,...
ComboBox z opcją lista
Użyj zdarzenia KeyPress kontrolki ComboBox w ten sposób: [syntax=csharp] private void comboBox1_KeyPress(object sender, KeyPressEventArgs e) { if (e.KeyChar == 13) { // Metoda otwierająca nową stronę OpenUrl(comboBox1.Text); } } [/syntax] Nie zauważyłem że to ma być w VB:) [syntax=vbnet] Private Sub comboBox1_KeyPress(sender As Object, e As KeyPressEventArgs)_Handles...
Witaj -lista -> wybierz ActiveX ComboBox powiedzmy że chcę wybrać po 1 komórce z każdej kolumny [syntax=vbnet]Sub plus1() For Each c In Selection c.Value = c.Value + 1 Next End Sub [/syntax]
Dane do ComboBox2 wpisuje się najlepiej w procedurze ładowania formularza na przykład następująco[syntax=vbnet] With Me.ComboBox2.Items For Me.i = 2 To 55 .Add(i) Next End With[/syntax] Po wykonaniu tych instrukcji mam liczby od 2 do 55 w rozwijanej liście. Poeksperymentuj z danymi, które chcesz wpisać najpierw bez pętli. Nie ładuj ich w podprogramie....
W zdarzeniu 'Po aktualizacji' pola kombi: [syntax=vbnet]Me.PoleObok = Me.Kombi.Column(1)[/syntax]
No nie wiem... powinno się używać parametrów sql... Poza tym wypełnianie combo raczej zrobił bym tak... [syntax=vbnet]Private Sub wypelnij_combo(controlka As ComboBox) Dim conn As New SqlConnection() conn.ConnectionString = My.Settings.karty_asortymentoweConnectio... Dim cmd As New SqlCommand cmd.CommandType = CommandType.Text cmd.CommandText =...
Po wybraniu wartości w pierwszym CB, [syntax=vbnet] Combo 2. Items. Clear For i = 0 to lista. Count -1 lista z której ładujesz combo If lista. Item (i) <>Combo1. Selecteditem. Value then Combo 2. Item. Add(lista. Item(i)) End if Next [/syntax] To zdarzenie wywołaj przy combobox 1. Selecteditemchange
skoro masz takie problemy to znaczy że albo nie zrobiłeś tego co ci napisałem wcześniej albo masz coś źle... nie jest to wcale takie trudne, pokombinuj z wypełnieniem comboboxa... [url=http://visuastudio-vbnet.blog.pl/20... rozumiem że tą kontrolką do walidacji sprawdzasz sam formularz podczas wprowadzania......
Witam, tworzę w pracy mały program - generalnie większość to różnego typu funkcje, które moge zrobić sam bez używania VBA. Jestem totalnie zielony i udało mi się znaleźć kod, który powinien działać [syntax=vbnet]Option Explicit Dim tbl() As Variant Private Sub cmdOK_Click() Range("C2") = ComboBox1.Text End Sub Private Sub ComboBox1_Change() Dim i As...
Witam, mam listbox'a z 4 kolumn, gdzie tylko jedna jest widoczna. Listbox ma ustawioną właściwość MultiSelect. No i mam problem, ponieważ zdarza się, że źle odczytuje wartości z kolekcji.. Spróbuję to opisać.. Formularz posiada Combobox i Listbox. Wartości do Listbox'a przypisywane są kwerendą w kodzie na podstawie zawartości Combobox'a. Listbox może...
dlaczego chcesz ponownie wykonywać zapytanie przy filtrowaniu? Zrób filtrowanie dynamiczne bezpośrednio na dbgrid coś tego typu... Data <= '" & date2 &
hmm dzięki za odezwanie się tylko to nie za bardzo wiem jak tego mam użyć.
formie 24h a nie 12h Ups... zamiast "HH" napisałem "hh". Zapomniałem, że to przecież jest spora różnica, ale jako że nie aż tak często używam funkcji Strings.Format (analogiczna do tej z VB6, nie mylić z String.Format, która to ma inną składnię) to pomyłki się zdarzają. W kodzie DataPickerMod zmień "hh:mm:ss" na "HH:mm:ss" czyli: aby przy kolejnym...
Miałeś napisać osobną metodę do wysyłania i odbioru danych. Jak bym wiedział jak to napisać bym to z przyjemnością zrobił, ale nie mam zielonego pojęcia jak to ma wyglądać. Może kolega mógłby rzucić troche kodem jak by to miało by mniej więcej wyglądać fachowo. Troche ten mój kod zmieniłem ale poszedłem "ostro" na skróty, dopisałem ponowny zapis zmiennej...
Listing: [syntax=vbnet] Imports System.Data.OleDb Imports System Imports System.IO Imports System.Drawing.Printing Public Class DemoForm Dim names() As String = {"", "A", "B", "C", "D", " "} Dim namesSzer() As Integer = {15, 235, 144, 330, 45, 40} Dim namesOffset() As Integer = {0, 110, 5, 60, 12, 10} Dim nagl1() As String = {"Lp", "data", "numer",...
Oczywiście problem rozwiązałem "półautomatycznie" przez kod w vb net: [syntax=vbnet]Dim str As String = "Select NrEwidKontrahenta, Max(DataWstawienia) AS OstatData FROM KONTRAHENCI GROUP BY NrEwidKontrahenta" Dim da As New OleDb.OleDbDataAdapter(str, cnn) da.Fill(ds) petla: For i = 0 To ds.Tables(0).Rows.Count - 1 ' ComboBox1.Items.Add(ds.Tables(0).Rows(i)...
Witam bardzo serdecznie... Mam mały kłopot z prawidłowym zapisem ustawień aplikacji dokonywanych przez użytkownika. Do tego celu mam dwie funkcje .. [syntax=vbnet] Function ReadSetting(key As String) As String Try Dim appSettings = ConfigurationManager.AppSettings Dim result As String = appSettings(key) If IsNothing(result) Then result = "Not found"...
Witajcie, mam UserForm pod który podłączam listę opcji wyboru, po której wybraniu potrzebuję: 1) przejść makrami do opcji exportu do Pdf gdzie w kol. A Arkusza "ID" mam nazwę zakresu, a w kol. C i D mam nr stron do exportu tego zakresu - na to wstępny pomysł mam jak niżej ale nie działa. 2) przejść makrami do dynamicznie zmieniających się zakresów które...
Dziękuję koledze jestam , za uświadomienie mi, że nie myślę :) Wystarczyło wpisać w google "Odczyt pliku za pomocą VB" i po chwili znalazłem to http://www.vbamania.estrefa.pl/index.php... Mam jeszcze jeden problem odnośnie instrukcji shell. Otóż chciałbym mieć możliwość zmiany parametrów zaznaczonych poniżej, czyli: MIKROPROCESOR,...
Witam serdecznie Zaczynam przechodzić wreszcie z VB6 na VB.NET więc proszę o wyrozumiałość i pisanie jak do dziecka. Dla przykładu mam DataSeta a w nim dwa DataTable np. Produkty z kol ID, Nazwa i IDDziału oraz Działy z Kol ID i Nazwa są również ustalone relacje Produkty.IDDziału<=Działy.ID. Na formie jest DataGrid (ustawiony na read-only) z Produktami...
Mam pytanie i proszę o pomoc. Wyświetlam sobie w mojej aplikacji w DataGridView dane z tabeli o urządzeniach. Każde urządzenie ma swój status: użytkowane, naprawa, przegląd. Chciałbym aby po wczytaniu do DataGridView danych, urządzenie miało status taki jaki jest w bazie (czyli np urządzenie 1 ma naprawa, 2 naprawa, 3 przeglad, 4 użytkowane) i żeby...
vbnet zegar combobox zmienna wypełnić combobox
światła postojowe toyota egzamin mechatronik czerwiec zasilanie phantom komputer
WD SATA 3,5" RAID 1 – ustawienie zworek, konfiguracja, kompatybilność CMR/SMR Zmywarka Premiere nie wypompowuje wody – czyszczenie filtrów, pompa, wąż odpływowy, błędy E24, F11
