Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[VB.NET] przenoszenie danych między formami

#1
[VB.NET] przenoszenie danych między formami
Cześć,

Powiem wprost potrzebuję napisać mały program do obliczania wymiarów pewnej części i chciałbym wprowadzić podstawowe dane w jednym oknie i żeby mi on to policzył i wyświetlił gotowe wyniki w drugim oknie. Chodzi mi dokładnie o to że, w jednym oknie wprowadzam na w TextBox1 jedną wartość, w TextBox2 drugą wartość klikam przycisk oblicz i pokazuje mi się drugie okno w którym będzie TextBox i wyświetli mi wynik. Szukałem po google, ale bardziej jest do C# kod. Mógłby mi ktoś napisać jaki kod mam wprowadzić w jednej formie, a jaki w drugiej?

Dodam, że jestem początkujący z VB i nie znam tego języka i nie wiążę z nim przyszłości, ale program muszę napisać w VB by był kompatybilny z programem CATIA.
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#2
RE: [VB.NET] przenoszenie danych między formami
Może być VB (nie: VB.NET)?
Nie pomagam na PW (ew. odpłatnie).  
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
INFO: Jak podawać logi, Forum PC Format > Ważne ogłoszenia > Wprowadzenie - jak odpowiednio opisać problem.
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.


 System operacyjny: windows_seven Przeglądarka: firefox
#3
RE: [VB.NET] przenoszenie danych między formami
Chodzi mi o składnię jak to ma wyglądać, jeśli nie ma różnicy między jednym a drugim to może. Szczerze to nie znam się na tym języku więc nie wiem jakie są różnice między vb a vb.net

Czytam książkę teraz o vb.net ale to są początki dopiero.
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: android Przeglądarka: chrome
#4
RE: [VB.NET] przenoszenie danych między formami
Kod:
Option Explicit

Private Sub Command1_Click()
Dim x As Double, y As Double

On Error Resume Next
x = Text1.Text
If Not IsNumeric(Text1.Text) Then
    MsgBox ("Niewłaściwy format danch!")
    Command3_Click
    Exit Sub
End If
y = Text2.Text
If Not IsNumeric(Text2.Text) Then
    MsgBox ("Niewłaściwy format danych!")
    Command3_Click
    Exit Sub
End If
Text3.Text = x * y
Text3.Refresh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

https://www.sendspace.com/file/78kl85
Nie pomagam na PW (ew. odpłatnie).  
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
INFO: Jak podawać logi, Forum PC Format > Ważne ogłoszenia > Wprowadzenie - jak odpowiednio opisać problem.
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.


 System operacyjny: windows_seven Przeglądarka: firefox
#5
RE: [VB.NET] przenoszenie danych między formami
[Obrazek: 33b95ee4db152.png]

Dzięki za szybką odpowiedź, ale to co mi napisałeś i wysłałeś to wiem jak zrobić Wesoły

Ale chodzi mi o to, że chce wprowadzić dane w jednej formie, a uzyskać wyniki w drugiej formie. Chciałbym przekazać dane między formami.
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#6
RE: [VB.NET] przenoszenie danych między formami
Generalnie chodzi tylko o to żeby zadeklarować zmienną którą będą widzieć obie formy.

Cytat:Option Explicit
Private w As Double

Private Sub Command1_Click()
Dim x As Double, y As Double

On Error Resume Next
x = Text1.Text
If Not IsNumeric(Text1.Text) Then
   MsgBox ("Niewłaściwy format danch!")
   Command3_Click
   Exit Sub
End If
y = Text2.Text
If Not IsNumeric(Text2.Text) Then
   MsgBox ("Niewłaściwy format danych!")
   Command3_Click
   Exit Sub
End If
w = x * y
Form1.Enabled = False
Form2.Text1.Text = w
Form2.Show

End Sub

[Obrazek: e8aca33901d5d304gen.png]

https://www.sendspace.com/file/nhj400
Nie pomagam na PW (ew. odpłatnie).  
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
INFO: Jak podawać logi, Forum PC Format > Ważne ogłoszenia > Wprowadzenie - jak odpowiednio opisać problem.
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.


 System operacyjny: windows_seven Przeglądarka: firefox
#7
RE: [VB.NET] przenoszenie danych między formami
A jaką wersję programu masz? Bo ja mam Visual studio 2017 i przy pisaniu wiersza "Form1.Enabled = False" wyskakuje mi błąd. Dzięki za program Wesoły
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#8
RE: [VB.NET] przenoszenie danych między formami
Podaj treść błędu.
Nie pomagam na PW (ew. odpłatnie).  
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
INFO: Jak podawać logi, Forum PC Format > Ważne ogłoszenia > Wprowadzenie - jak odpowiednio opisać problem.
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.


 System operacyjny: windows_seven Przeglądarka: firefox
#9
RE: [VB.NET] przenoszenie danych między formami
Już działa, zapomniałem zdeklarować formę jako Dim i dlatego wyskakiwał błąd, że nie zdeklarowano formy. Teraz już wszystko działa tak samo jak w Twoim programie. Dzięki za pomoc Wesoły

A mam jeszcze jedno pytanie, jakbym chciał wyeksportować dane z TextBoxa do excela i to w takiej formie, że:

Komórka A1 Komórka B1
d 20

Dałoby się taki kod napisać?
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#10
RE: [VB.NET] przenoszenie danych między formami
Ad. 1. Możesz nie wymuszać deklarowania zmiennych  ("Option Explicit")  > wtedy program "przyjmie wszystko" - ale uwierz mi: przy 20-30 zmiennych zrobi ci się taki bur... bałagan że się nie połapiesz.

Ad. 2. (eksport do Excel): oczywiście >> kolejny Button na Form2 i przypisany do niego kod:
Kod:
Private Sub Command3_Click()
Dim oExcel As Object, oBook As Object, oSheet As Object
Dim odp As String

On Error GoTo laend

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)

oSheet.Range("A1").Value = Form1.Text1.Text
oSheet.Range("B1").Value = Form1.Text2.Text
oSheet.Range("D20").Value = Form1.Text3.Text

oBook.SaveAs "C:\x.xlsx"
oExcel.quit

odp = MsgBox("Zapisano w C:\x.xlsx / Arkusz1", vbExclamation, "Ha!")
GoTo laend1

laend:
MsgBox ("Błąd podczas zapisywania - albo wybrałeś coś innego niż 'Tak'  albo plik Excel jest otwarty." _
& vbCrLf & "Sprawdź - ew. zabij wszystkie procesy Excel w Menedżerze zadań.")

laend1:
Set oExcel = Nothing
Set oBook = Nothing
Set oSheet = Nothing

End Sub
Metoda zapisu jest najprostsza jaka może być ("na sztukę") - stąd możliwe błędy (i ich minimalna obsługa).
Stąd też wbity na sztywno plik: C:\x.xlsx.

FYI: zmienna odp jest na razie tylko po to żeby "uatrakcyjnić" komunikat. Przyjmuje jakąś tam wartość po kliknięciu przycisku ale nic z tym dalej nie robi. Ale musi być zadeklarowana bo jest "Option Explicit" Oczko
https://msdn.microsoft.com/en-us/library...s.60).aspx

VB6: https://www.sendspace.com/file/zlf0j2
Nie pomagam na PW (ew. odpłatnie).  
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
INFO: Jak podawać logi, Forum PC Format > Ważne ogłoszenia > Wprowadzenie - jak odpowiednio opisać problem.
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.


 System operacyjny: windows_seven Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki ([VB.NET] przenoszenie danych między formami)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  wczytanie danych z pliku, filtrowanie danych, zapis wyniku do pliku tekstowego - C++ Martus 1 4351 21.10.2015, 22:43
Ostatni post: Szachista
  [BATCH] Pytanie - przenoszenie plików z katalogu wyżej krysteksulek 4 4157 01.07.2015, 19:44
Ostatni post: krysteksulek
  [C#,Java]Rożnica między Task a Thread. dorion300 2 4770 19.04.2015, 17:48
Ostatni post: dorion300

Skocz do:


Wybrane wątki ([VB.NET] przenoszenie danych między formami)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [Visual Studio 2017] Problem z utworzeniem projektu draxen 2 1550 31.03.2017 23:20
Ostatni post: Ajgor
  Tutoriale: Tworzenie raportów z wykorzystaniem SQL. Cixi 3 3351 29.03.2017 08:23
Ostatni post: koneton
  [CMD - Tryb wsadowy] Skrypt tworzący drzewo katalogów na podstawie podanego pliku Ayumi 0 3123 29.03.2017 01:41
Ostatni post: Ayumi
  Help z wytłumaczenie | tablice wskażnikowe soul1648 21 10549 27.03.2017 11:28
Ostatni post: Szachista
  Wskażniki do tablic dwuelementowych soul1648 1 3125 25.03.2017 16:13
Ostatni post: Szachista
  Tablice dwuwymiarowe a wskażniki soul1648 4 3351 22.03.2017 21:58
Ostatni post: soul1648
  [C++] Działanie na tablicy znakowej saba13579 8 3198 21.03.2017 22:30
Ostatni post: Szachista
  Wyszukuje wszystkie dzielniki danej liczby n które są liczbami pierwszymi soul1648 2 2842 21.03.2017 20:55
Ostatni post: soul1648
  automatyczne tworzenie pliku tekstowego alinja 3 3366 18.03.2017 20:51
Ostatni post: Szachista
  [C++] Scalanie dwóch posortowanych tablic soul1648 5 3415 16.03.2017 20:09
Ostatni post: Szachista
  Adresy pamięci w grach ankieteradrian 8 4207 09.03.2017 16:01
Ostatni post: ankieteradrian
  Zmiana tablic połówkami "C" topornik43 1 2787 09.03.2017 09:22
Ostatni post: Szachista
  MIT App Inventor 2 patryksandecja 0 2881 04.03.2017 13:56
Ostatni post: patryksandecja
  Autoit Cheackbox ankieteradrian 0 2798 04.03.2017 02:16
Ostatni post: ankieteradrian
  Flash player pomoc w tłumaczeniu Kane 2 2709 03.03.2017 19:57
Ostatni post: Kane