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
  [VB] przenoszenie danych do Outlooka VeX85 0 295 14.02.2018, 18:27
Ostatni post: VeX85
  wczytanie danych z pliku, filtrowanie danych, zapis wyniku do pliku tekstowego - C++ Martus 1 4735 21.10.2015, 22:43
Ostatni post: Szachista
  [BATCH] Pytanie - przenoszenie plików z katalogu wyżej krysteksulek 4 4456 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
  RPG napisany w CMD nolokon 3 7538 24.01.2017 16:22
Ostatni post: Ajgor
  Wie ktoś jak otworzyć komunikat VBScript przy pomocy Batch-a? Whelly.pl 4 3795 23.01.2017 20:30
Ostatni post: Whelly.pl
  Excel - złożone sumowanie paulina-8912 1 3501 23.01.2017 19:52
Ostatni post: broda99
  Jak w batch zrobić napis, którego naciśnięcie da jakieś efekty (przycisk)? toslaw1 2 4003 21.01.2017 08:37
Ostatni post: toslaw1
  Jak w batch wstawić obrazek? toslaw1 8 4430 20.01.2017 22:07
Ostatni post: broda99
  [C# Problem] Rysowanie histogramu poziomego. Ayumi 4 3922 20.01.2017 03:15
Ostatni post: Ayumi
  VisualBasic - tablicowanie wartości funkcji . samanta19 2 3675 20.01.2017 01:01
Ostatni post: samanta19
  Jak uruchomic plik pod warunkiem, że nie był uruchamiany w batch? toslaw1 5 1253 16.01.2017 17:21
Ostatni post: toslaw1
  [C++]Problem z wyszukiwaniem liczb w tekście i szukaniem słowa w słowie Niyabi 1 3580 15.01.2017 15:53
Ostatni post: Szachista
  Visual Basic - szeregi angelika.m 2 3877 12.01.2017 23:57
Ostatni post: angelika.m
  Baza danych w Accessie - sprawdzenie poprawności Fei 1 3534 12.01.2017 00:40
Ostatni post: Chudy2000
  Tworzenie instalatora modów do gier kubasek2001 5 5147 08.01.2017 17:27
Ostatni post: MrBoombastic
Cry [JS] Sumowanie ciągu liczb Guanabanana 3 3777 05.01.2017 08:54
Ostatni post: koneton
  [Kwerendy] Prośba o pomoc w rozwiązaniu zadań fifa1k 1 3246 04.01.2017 19:50
Ostatni post: Szachista
Ściana Kompilacja programu C# tommig1983 1 3545 27.12.2016 09:29
Ostatni post: aht