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ą.
Jak podawać logi
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ą.
Jak podawać logi
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ą.
Jak podawać logi
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ą.
Jak podawać logi
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ą.
Jak podawać logi
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
  [VBA] Przenoszenie danych między formularzami Pioro 4 9756 23.04.2018, 11:48
Ostatni post: broda99
  wczytanie danych z pliku, filtrowanie danych, zapis wyniku do pliku tekstowego - C++ Martus 1 8102 21.10.2015, 22:43
Ostatni post: Szachista
  [BATCH] Pytanie - przenoszenie plików z katalogu wyżej krysteksulek 4 7473 01.07.2015, 19:44
Ostatni post: krysteksulek

Skocz do:


Wybrane wątki ([VB.NET] przenoszenie danych między formami)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
Scared Ipad Pro programowanie? NissmoOne 4 8118 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 7525 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 7908 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 9025 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 7774 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 8489 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2356 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 9142 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 9427 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 8607 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 9215 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 8993 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 9486 13.05.2018 10:43
Ostatni post: Szachista
  Autohotkey automatyczny zapis TheProgson 0 9094 07.05.2018 21:27
Ostatni post: TheProgson
  VBA Pobieranie wybranych plików z danymi julietta03 1 9337 04.05.2018 08:25
Ostatni post: broda99