Prawdopodobnie domyślnie zmienne są typu Variant.
Visual Basic 2005 Net pozwala wpisać dowolną liczbę od 1 do 255, anie nie mogę przetestować czy działa na wyższych niż 2 bo tylko tyle portów mam :) Pozdrawiam.
Tak sformatowana "tekstowa baza" - nazywa się CSV. Tutaj parę przykładów wczytywania takich plików: http://stackoverflow.com/questions/10298... http://www.coderscity.pl/sutra17881.html Punktów nie potrzebujesz dawać - po to jest przycisk "pomógł" :)
To nie jest kwestia Winsocka tylko działania sieci. Jeśli u siebie uruchomisz program serwera i odpowiednio skonfigurujesz router to inni użytkownicy będą mogli nawiązać połączenie. W przypadku takich serwisów jak gg używa się do komunikacji pośredniczącego serwera. Poszczególni użytkownicy przez niego przesyłają sobie informacje. W tym konkretnym przypadku...
Przesyłam zmieniony kod. Jeżeli otwarty arkusz nie nazywa się "Sklep*" to wychodzi się z procedury.
Jezeli nie zmienilesnazw formatek to pierwsza nazywa sie Form1 a druga Form2. Wiec wpisz w funkcji przycisku na formatce pierwszej Form2.label1.caption = "BlaBla" pozdro
[syntax=vb] Sub Generuj() Dim i As Integer Sheets("Liczby").Select Randomize For i = 1 To 4 Cells(2, i + 1) = Int(Rnd() * 30) + 15 'B2:E2 Next End Sub Sub CommandButton2_Click() Call Generuj Range("F20").FormulaLocal = "=SUMA(B2:E2)" Call Mnozenie MsgBox "Oto suma: " & Range("F20") End Sub Sub Mnozenie() Dim Mnoznik As Single, i As Integer Mnoznik =...
Odnośnie zapytania zawartego w tytule wątku. Najprościej oprogramować zdarzenie 'przy zmianie' OptionButton'a. Oba są kontrolkami jednej ramki, więc upraszcza to zadanie (jeden wymusza zmianę drugiego). Uwagi: 1. Trzeba założyć, że dokonano już wyboru - w związku z tym zmienna temp i przemnożenie (zmiana znaku) przez -1 (dwa minusy dają plus) 2. Wypełnienie...
Tu znajdziesz najnowsze... http://lab.msdn.microsoft.com/express/vb...
Ja nie wiem, czy jest VB dla linuxa.... A nawet jesli jest, to i tak nie polecam tego jezyka. Jesli chcecie pisac to moze lepiej w C/C++? W sumie nie ma problemu z pisaniem. Mozecie podzielic sie praca i kazdy bedzie pisal co innego, a potem ktorys polaczy. Proponuje pisanie komentarzy - pomoze to zrozumiec drugiemu z was rozumiec co napisal pierwszy....
Po kolei: Najpierw robisz tak: [url=http://lmgtfy.com/?q=visual+basic+r... Potem wchodzisz tu: [url=http://forum.codecall.net/visual-ba... I już! :ok:
Ups! Zaćmienie umysłu :). Żeby się trochę zrehabilitować For i = 1 To Len(tekst) If Right(Left(tekst, i), 1) = "a" Then licz = licz + 1 Next
Przepuść zmienna b przez taką funkcję : Public Function Bin(ByVal lngNumber As Long) As String Do While lngNumber > 0 Bin = (lngNumber Mod 2) & Bin lngNumber = lngNumber \ 2 Loop If (Len(Bin) Mod 8) <> 0 Then Bin = String$(8 - (Len(Bin) Mod 8), "0") & Bin End If End Function...
Tu masz dokładnie to czego potrzebujesz i o czym wspomniał PRL https://docs.microsoft.com/pl-pl/dotnet/... Dzielisz zdanie na słowa (tokeny), po nich zmieniasz stan. Na podstawie stanu określasz co może ci przyjść. Poczytaj też to - dość prosto napisane. https://en.wikipedia.org/wiki/Lexical_an...
Acha Jeśli kłopot, to chyba se dam spokój.:| Musi być koniecznie w VB? Może zainteresuje Cię "basicopodobny" darmowy (z helpa: Sends an email without using an external email program). Tu polskie forum: http://www.autoit.xaa.pl/index.php Pozdrawiam - Stanley
Spróbuj przekazać jako parametr do GetDriveInfo literę dysku uzyskaną w ten sposób: Dim strParts() As String Dim literaDysku as String strParts = Split(App.Path, "\") literaDysku = strParts(0) & "\"
Przejrzałem ftp://ftp.helion.pl/przyklady/vbnetd.zip Rozdział 12. DisplayTable to nie jest część frameworka, tylko metoda napisana przez autorów książki. Jest tam kilka wersji, np: Sub DisplayTable(ByRef objTable As DataTable) Dim objRow As DataRow Dim objCol As DataColumn Dim i, j As Integer For j = 0 To objTable.Columns.Count - 1 objCol =...
Całe wyrażenie "RS232.Encoding.UTF8" podkreśla mi na niebiesko falowaną linią, a więc coś robię nie tak. Pisząc "pozmieniaj utf8 na inne" masz na myśli utf7 i utf32 ?? Jak pozbyć się tej linii niebieskiej ?? sorki :) [syntax=vbnet]RS232.Encoding = System.Text.Encoding.UTF8[/syntax]
W najprostszym wydaniu należy użyć klasy Process, która znajduje się w przestrzeni nazw System.Diagnostics. [syntax=vbnet] Imports System.Diagnostic Public Class Form1 'Metoda uruchamiająca program' 'Argument to nazwa programu' private Sub RunExeProgram(ByVal name As String) Process.Start(name) End Sub Private Sub Button1_Click(ByVal sender As System.Object,...
Ten kod z C# się tu nie nadaje. Do prostego kopiuj -wklej na pewno nie. Ale masz już to przecież zrobione w VB, w swoim pierwszym poście podałeś: [syntax=vb]Dim Ln As Integer = RichTextBox1.GetLineFromCharIndex(RichTe... zwraca numer aktualnej linii, prawda? Więc wykorzystaj go do pobrania całej linii z tablicy RichTextBox1.Lines,...
Wybacz, mój błąd :) Zamiast [syntax=vb] Dim int mocGrzejnika As Double = Convert.ToDouble(textbox3.Text); [/syntax] powinno być [syntax=vb] Dim mocGrzejnika As Double = Convert.ToDouble(textbox3.Text); [/syntax]
Forma: Border Style: 1- Fixed Single Min/Max Button - można nie wyświetlać MinButton, ale Max zostanie. Wyjście: anulować próbę zamknięcia okna po naciśnięciu X lub zrobić formatkę bez paska tytułu (Border Style - 0 None). Opóźnienie - zerknij na: http://tinyurl.com/6j8ccjo (są różne rozwiązania, z licznikami czasu i bez...) Można tak: Private Declare...
Można np tak: ActiveSheet.Unprotect ' tu twoje makro ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Pozdrawiam!
Link, który podałeś to dokładnie to samo, co pierwszy link, który zapodałem. Jest to pełen pakiet Visual Studio, nie sam Visual Basic, co zresztą jest tam napisane. I jest to jeden plik o wadze 694MB, nie wiem ani skąd wziąłeś informację że sam Visual Basic to 649MB, ani skąd te 4 party 3x700mb i 1x 96mb - chyba że nie mówimy o tym samym...
Z prostszych rozwiązań: możesz uśpić wątek metodą [url=http://msdn.microsoft.com/pl-pl/lib... albo wrzucić kod do timera, który co sekundę doda i narysuje jeden pixel.
Najprościej będziesz miał wywołując proces domyślnego programu do obsługi pdf (Acrobat, Foxit Reader czy inny) i za jego pomocą uruchomić proces drukowania. Tutaj uwaga, ten kod uruchamia drukowanie na drukarce domyślnej. Przykładowy kod [syntax=csharp] private void PrintButton_Click(object sender, EventArgs e) { ProcessStartInfo processInfo = new ProcessStartInfo();...
Próbowałeś Split'em? Np [syntax=vbscript]strZm = "Txx=AA.A;Txx=BB.B" vTab = Split(strZm, ";") str1 = vTab(0) str2 = vTab(1)[/syntax]
Dokladnie nazwa formy to "Form1". Chyba ze wpiszesz Me.hwnd Oczywiscie deklaracja api to jest jeden wiersz znakow a nie dwa jak pokazuje na "elektrodzie" pozdr.
Na Elektodzie nie brak osób, dla których Twój problem nie jest trudny. Może spróbuj jeszcze raz opisać problem... Mnie nie udało się zrozumieć.
Najlepszy kurs VB po polsku masz tutaj: http://www.vb4all.pl/teoria/ Tam można nauczyć się poleceń itd. Jeśli chcesz nauczyć się w praktyce jak się pisze programy, to ściągaj przykładowe źródła ze strony: http://www.vb4all.pl/component/option,co... Dodano po 2 A i jeszcze taka mała rada: Wszyscy lepsi programiści VB zaczynali od...
Kiedys to robil... dawno Trzeba bylo deklarowac API funkcji FindWindow i SendMessage Byc moze znalezem gdzies w archiwum(bylo 5+ lat temu) Google nic nie daje? Jesli znasz angelski https://stackoverflow.com/questions/1444... Dodano po 25 Zostalo to na starej prace... jestem na emerzyturze
Są tylko inputbox i message box. Zbyt wiele to nie da się z nimi zrobić. http://www.tutorialspoint.com/vbscript/v...
Witam Najprościej zamienić na format binarny i dopiero przypisać do TextBox'a. TextBox1.Text = binarna Pozdrawiam Jarek
Zależy jakie odcinki czasu chcesz odliczać i z jaką dokładnością. Ogólnie system Windows nie nadaje do odmierzania dokładnych odcinków czasu rzędu kilku ms i mniej. Wynika to z występowania w systemie wielu procesów, które są cyklicznie przełączane. Kiedyś pisałem bibliotekę do programowania mikrokontrolerów poprzez port LPT i tam do odmierzania krótkich...
Odnośnie daty - użyj kontrolki z kalendarzem zamiast kontrolki textbox. Tu masz przykład: http://www.fontstuff.com/excel/exltut03.... Tylko u Ciebie z tego co widzę kontrolka jest na formie, a nie zagnieżdzona w arkuszu, ale chyba sobie poradzisz, po prostu w edytorze form sobie ją wrzucisz. Tak, zgadza się - textbox nie ma właściwości value. W linijce...
Pokaż jak uruchamiasz 'strony' Process.Start(startInfo) co pakujesz do startInfo ? Dodano po 7 "C:\Program Files\Internet Explorer\iexplore.exe" -nomerge www.costam.com
Obiekt WebBrowser ma property zwaną IsWebBrowserContextMenuEnabled, którą trzeba ustawić na false: [syntax=csharp] webBrowser.IsWebBrowserContextMenuEnable... = false [/syntax]
jezeli bedzie to robic na na jednym i tym samym kompturze to pocelam scriptit, mam kilka "programow" w tym napisanych np: nowy word, wstaw ze schowka, wstaw date, ustaw drukarke oraz strone, wydrukuj ...
Chciałam dołączytć do rozmowy, proponuję przeczytać dobry artykuł www.lpt.strona.pl - omawia dwa tryby pracy - directional (typowy dla drukarek) oraz bidirectional (czytanie portu) do artykułu dodaję własny programik testujący, który działa ze sterownikiem inpout32.dll. Chciałem dodać, iż na klawiszu masz aktualny tryb pracy portu, zmiana następuje...
Witam. Tak jak napisał poprzednik - można wykorzystać kontrolke Media Player ale to raczej zły pomysł chociaż prosty do zrealizowania. Sam pisałem programy wykorzystujące tą kontrolkę i muszę przyznać że nie jest to dobre rozwiązanie. Jeżeli chcesz odtwarzać pliki WAV polecam kontrolkę SoundforVB do sciągnięcia z http://vb4all.canpol.pl/ocx/soundvb.zip....
Właśnie nie :) ExecuteNonQuery znaczy mniej więcej tyle co "wykonaj nie-zapytanie" - czyli komendę nie zwracającą wyników (wierszy). Pod do podpadają wszystkie polecenia modyfikujące bazę INSERT, UPDATE, DELETE etc. Natomiast ExecuteReader znaczy tyle co "wykonaj czytanie" - czyli zapytanie SELECT zwracające rekordy. Readera używasz tylko do odczytu...
Proszę mnie poprawić jeśli się mylę, ale Visual Basic 2010 korzysta z NETa. Więc po jakiego grzyba szukać czegoś w winApi. Net ma gotowe biblioteki to odczytywania i zapisywania kluczy rejestru. [url=http://www.tutorialdash.com/tutoria... + przykładowy program.
do visuala jest dolaczony "package & deployment wizard". kreator poprowadzi cie jakie czynnosci wykonywac. pozdro
Poczytaj sobie o sprawdzaniu poprawności numeru NIP. np. tutaj http://pl.wikipedia.org/wiki/Numer_Ident...
Do tablicy zapisz tylko te. które odpowiadają zaznaczonym checkBox;om. Nie deklaruj rozmiaru na początku, tylko dynamicznie (Redim Preserve) w pętli sprawdzającej CheckBox'y. Za pętlą sprawdź rozmiar tablicy (Ubound) i podstaw do Rnd Example This example uses the Rnd function to generate a random integer value from 1 to 6. Dim MyValue MyValue = Int((6...
[syntax=vbscript]cnt = 1 For i = 4 To 999 If Cells(i, "E").Value = "SL3510" Then Cells(i, "J").Value = "Line " & cnt If cnt < 4 Then cnt = cnt + 1 Else cnt = 1 End If Next i[/syntax]
Spróbuj pętli: [syntax=vb]Do While Not EOF(1) '... Loop[/syntax] Wielkość pliku można sprawdzić w łatwiejszy sposób...
Witam, Na płycie z multiprojektu znalazłem przykłady skryptów może to coś pomoże.
Poniżej bardzo prosty przykład który powinien pomóc:[syntax=vbscript] Sub test() For Each i In Range("A:A") If i.Value = "" Then 'jeżeli komórka jest pusta i.Offset(0, 3).Value = i.Offset(-1, 3).Value 'kopiuj offset yx (-1, 3) do offset (0, 3) Next End Sub [/syntax] gdzie: y to wiersze x to kolumny
Pozwolę sobie, żeby ktoś inny przejął dalszą rozmowę. P.S. Nie z braku wiedzy.
Zależy Ci na tych akurat programach z tej książki od BTC? Pytam, ponieważ to mi wygląda na VB6. Jeśli chcesz się uczyć programować, a nie masz z jakiegoś powodu parcia na VB6, to lepiej zaktualizować książkę i zająć się VB.NET, albo w ogóle porzucić VB i przeskoczyć na C#. Jesli jednak koniecznie musisz programować w VB6, to sprawdź ustawienie Frameworka...
Musisz pobrać dane z textboxów, pamiętając że w textboxach dane są stringami. Następnie musisz je zrzutować (przekonwertować) na typ liczbowy (dajmy na to integer) dodać i przypisać textboxowi3 sumę liczb.
Najlepiej pod Dodano po 2 No i na [VB 2008] jak skompilujesz program to działa normalnie na kompie i paltopie czyba że użyjesz np. przeźroczystości itp to nie uruchomi się na palmtopie . itp.
Zerknij równiez tu : http://www.elektroda.pl/rtvforum/topic32... Do czestotliwosci mozesz wykorzystac petle programu. Mozna wycisnac "wieksze" osiagi. pozdrawiam.
To ma być powiązane z Office (VBA) czy czysty VBscript? [syntax=vbscript] Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject... Dim Fileout As Object Set Fileout = fso.CreateTextFile("C:\sciezka\nazwa_pli... True, True) Dim eve_str As string eve_str = "qwertyuiuiiop" Fileout.Write "jakis tekst" Fileout.Write eve_str Fileout.Close[/syntax]
U mnie rysowanie zewnętrznych konturów kontrolek podczas przesuwania również nie jest idealne. Jednak zupełnie mi to nie przeszkadza.
Metoda .Navigate() klasy WebBrowser, coś w stylu: [syntax=vbnet]WebBrowser1.Navigate("1.pl...
Witam, Już dawno nie pisałem w VB ale ze starych softów do szuflady wyglądało to tak: założenia niech komponent do komunikacji nazywa się : RS232 1) RS232.CommPort = 1 ' nr portu com RS232.Settings = "9600,n,8,1" ' parametry transmisji RS232.PortOpen = True ' otwarcie portu 2) ZMIENNA_1 = "ESC" RS232.Output = ZMIENNA_1 3) ZMIENNA_2 = RS232.Input Proszę...
i=0 s=0 h=’litwoojczyznomoja’ k=max(len(h), len(z)) while i<k . b= h[i mod len(h)] xor z[i mod len(z)] . h[ i mod len(h)]= b . s=(s+b) mod 256 h=h+s i=0 while i<len(h) . b=h[i]>>4+’0’ . if b>’9’ b=b+’A’-‘0’ . pisz(b) . b=h[i] mod 16+’0’ . if b>’9’ b=b+’A’-‘0’
For i = 2 To arkusz.Rows.Count - 1 Na For i = 2 To 200
Musisz mieć fokus na formie. Właściwości TabSto p kontrolek ustaw na False .
drobny opis programu: [syntax=vb] Public Class Form1 Dim operat As String ‘deklaracja zmiennej operatora artemtycznego Dim Cyfra_Pierwsza As Boolean = True ‘deklaracja zmiennej Dim walor1, walor2 As Double ‘deklaracja zmiennych dzialan artmetycznych Private Sub operat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)...
przeczytaj sobie ten tekst http://www.devx.com/getHelpOn/10MinuteSo... greets
Mscomm jest kontrolka przystosowana do obslugi rs'a. nie bedziesz mial zawieszek. Nestety musisz miec podpasionego Visuala zeby miec ta kontrolke. Mozesz rowniez programowac wej/wyj bezposrednio przy pomocy chociazby darmowego InpOut32.ocx pozdr
Witaj " = Chr(34) Dodano po 2 str_out = " <?xml version=” & Chr(34) & "1.0” & Chr(34) & "encoding=” & Chr(34) & "UTF-8” & Chr(34) & "?> " albo = "<?xml version=""1.0"" encoding=""UTF-8""?> "
[syntax=vbnet] Dim filePath As String filePath = Environment.GetFolderPath(Environment.Sp... & "\nazwa_pliku" If My.Computer.FileSystem.FileExists(filePa... Then MsgBox("File found.") Else MsgBox("File not found.") End If[/syntax]
Czy ktoś zna łatwą metodę przeniesienia programu z VBA na niezależną platformę Visual Basic? Tak, ale dotyczy to tylko VB6. Kiedyś przenosiłem kod VBA swojej aplikacji z Corela na Visual Basic 6.0 i to nie wymagało dużych zmian w kodzie. Niestety później z uwagi na pewne udogodnienia dotyczące używania VB.NET przeszedłem na ten język co skończyło się...
Nie doczytałem, nie napisałeś z jakiego ide korzystasz. Moja porada dotyczy visual studio ( https://codinglifestyle.wordpress.com/20... ) Jeśli chodzi o VSCode powinno działać od razu, Jeśli ide jest inne daj znać.
zobacz [syntax=vb]Cells.Replace What:=ChrW(&H3A9), Replacement:="", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub [/syntax]
Dla stringa: [syntax=vbnet]Me.RenolityBindingSource1.... = "[Field1] LIKE '%" & TextBox1.Text & "%'"[/syntax] dla pozostałych typów: [syntax=vbnet]Me.RenolityBindingSource1.... = "Convert([Field1], 'System.String') LIKE '%" & TextBox1.Text & "%'"[/syntax]
Jesli chcesz miec naprawde olbrzymie mozliwosci to polecam IconWorkShop np wersja 5 :) Pozdrawiam
A więc dodajesz dwa usingi: [syntax=csharp] using System.Net; using System.Text.RegularExpressions; [/syntax] Następnie korzystając z klasy WebClient pobierasz zawartość strony np. tak: [syntax=csharp] WebClient client = new WebClient(); string content = client.DownloadString("www.jakas-strona.... [/syntax] I przeszukujesz pobraną zawartość strony...
taki PDF będzie równie warty, jak JPEG. Do Delphi istnieje taki komponent jak WPPDF
Można też wstawiać taką kreskę w "Caption" danego elementu menu dając "-" (minus) i on to przerabia na kreskę (separator). Co do ikonek to osobiście mis ię to nie podoba więc takich nie robię, a co za tym idzie - nie potrafię :).
Gdybyś zechciał przynajmniej ten kod sformatować i użył kodowania składni dla Visual Basic.. Podobny kod ;) [url=http://www.echo.netstrefa.eu/index....
Zgadzam się z Kolegą, nie wiedzieć czemu w Accessie 2003 częśc rzeczy działa zupełnie inaczej i po konwersji bazy z '97 są problemy. G.B. : sprawdź jeszcze czy z kwerendą da się to zrobic tak jak chciałeś. Pozdrawiam -
Musisz napisać komunikację Modbus TCP. Korzystałem dość dawno i w C#, ale powinno działać: http://sourceforge.net/projects/shortbus...
Label1.Text = Str(Val(Label1.Text) + 1)
Kod wstawia się w specjalnych znacznikach - przyjemniej się będzie czytało. Co do twojego problemu - takie coś wygooglałem: "Funkcja Val rozpoznaje tylko kropkę (.) jako prawidłowy separator części dziesiętnej. Jeżeli zostanie użyty inny separator dziesiętny, należy użyć funkcji CDbl() to konwertowania łańcucha na liczbę.". Wspomniano tam także, że...
Spróbowałem przygotować prosty przykład napisany w języku Visual Basic Script, który to język chociaż różni się od Visual Basic'a, to jednak modele obiektowe w Windows są jednakowe dla różnych języków programowania REM Nadanie wartości stałym i zmiennym Const DSNdrv="Driver=Microsoft dBase Driver (*.dbf);" 'DSNdrv jest sterownikiem...
Moze na poczatek tak dla zachety :) Dim Pesel As String Private Sub Form_Load() Dim Rocznik As Byte Dim Miesiac As Byte 'Pobranie pesel Pesel = InputBox("wpisz pesel", , "02070803628") 'kiedy nie jest pusto If Pesel <> "" Then 'Wyliczenie rocznika Miesiac = Mid(Pesel, 3, 2) If Miesiac >...
Raczej nie jest to wykonalne. To jest przejściówka emulującą drukarkę a nie port LPT.
używam VB 2010 express i instrukcja open nie działa Ja używam VB2005EE bo .Net 4 psuje mi komunikację z faxem, ale to bez znaczenia bo kod jest kompatybilny w górę: sprowadzić do stringa Można, ale jak widać wyżej w vb.net nie trzeba :D
Jeszcze raz odsyłam Cię do mojego linku. Tam w konstruktorze formy masz wywoływaną metodę, która tworzy przycisk i umieszcza go na formie. Przeciągnięcie przycisku z toolboxa na formę sprowadza się do wygenerowania kodu w metodzie InitializeComponent. Dwie kluczowe linijki to: [syntax=vbnet]Me.textBox1 = New System.Windows.Forms.TextBox() Me.Controls.Add(Me.textBox1)[/syntax]...
[syntax=vb]Dim y As Integer = &H23[/syntax]czyli trzeba dodać &H
[syntax=basic4gl]Public Function crc16(ByRef dpointer() As Byte, ByVal amount As bye) As Long Dim crc16 As Long Dim i As Integer For i = 0 To amount crc16 = ((256 * crc) & &HFF00) Xor crc_table((Int(crc16 / 256) Xor dpointer(i)) And &HFF) Next amount crc16 = crc16 Xor &HFFFF End Function[/syntax]
http://filext.com/detaillist.php?extdeta... Pozdrawiam, Krzysztof.
Tak mozna. Co napisales i jakie wystepuja bledy. pozdr.
Ok, a tu http://www.codeguru.pl/article-642.aspx masz gotowca jak przypisać klawisze do przycisków na Twojej formatce. Dodano po 2 Jak coś już stwożysz to pokaż, może coś dodamy - poprawimy i nauczymy się wszyscy.
Jeśli zadeklaruję to jako object Nie powinieneś używać klasy "ogólnej" Object do dostępu do klasy WebBrowser (w drugim przypadku). W ogóle nie powinieneś jej ręcznie definiować, a dodać kontrolkę do formy. To wystarczy. Wtedy : [syntax=vbnet]WebBrowser1.Navigate("http... zadziała bez problemów.
Nie ma Continue w VBA. Może chodzi ci o coś takiego? Sub przyklad() Dim i As Integer For i = 2 To 21203 For j = 2 To 21264 If Cells(i, 1) = Cells(j, 2) Then Cells(i, 3) = Cells(j, 4) Else goto nxt End If nxt: Next j Next i End Sub
Sporo tego po wpisaniu w googlach... Np [url=http://forums.devshed.com/visual-ba...
Rozumiem że podajesz pełną ścieżkę np:"C:\asdf\asd\asdf.wav". Wklej fragment kodu z Twojej aplikacji, gdzie i jak jest to wykorzystane.
A próbowałeś coś w tym stylu: Sub MyMainMacro() ' Pause for 15 seconds. Application.OnTime When:=Now + TimeValue("00:00:15&quo... _ Name:="MyDelayMacro" End Sub Public Sub MyDelayMacro() ' Place your delayed macro commands here. MsgBox "This macro runs after 15 seconds." End Sub ?? Czemu...
Nie wiem jak w 10 ale w 12 zaznaczasz label potem Properties>Apperance>BackColor i tam wybierasz Web i masz tam Transparent. I nie narzędzi to są Kontrolki tak na marginesie.
Możesz wyczyścić tabelę np tak [syntax=sql]DoCmd.RunSQL ("DELETE * FROM nazwa_tabeli")[/syntax] pozostanie tylko struktura a wszystkie dane wylecą.
Zapewne towarzyszy temu jakieś zdarzenie. http://msdn.microsoft.com/pl-pl/library/... http://www.vbforums.com/showthread.php?6...
a może zadeklarować te zmienne jako tablicę ? Dim zmienna(1 to 50) As Integer następnie przekazać ją do procedury: Public Sub Program1 (zmienna() As Integer) do wartości zmiennych dostaniesz się przez zmienna(1) ..... zmienna(50)
Kolego, możesz przedstawić swój problem mniej enigmatycznie? Nie prościej jest napisać jeden dobry kod programu, niż kilka programów wykonywalnych kontrolujących nawzajem swoją pracę? O ile w przypadku plików wsadowych znanego nam systemu operacyjnego była to często jedyna możliwość obejścia jego ograniczeń, to w kodzie normalnych języków programowania...
moze modyfikuj poprostu rejestr: [HKEY_USERS\.DEFAULT\Control Panel\Desktop] "ScreenSaveActive"="0&quo... albo Private Const SPI_SETSCREENSAVEACTIVE = 17 Private Declare Function SystemParametersInfo Lib "user32" & _ Alias "SystemParametersInfoA" (ByVal uAction As Long, & _ ByVal uParam As Long, ByVal lpvParam As Long, & _ ByVal...
obrazek visual basic visual basic robot visual basic funkcje
bloody sterowniki sonoff temperatura sygna zakodowany
simlock nokia konica minolta panel dotykowy
Częste zrywanie połączenia w routerze Tenda A21 Skoda Octavia 2 1.6 MPI 2004 - Pobór prądu przez radio