Avatar billede zkou Nybegynder
08. marts 2005 - 23:14 Der er 21 kommentarer

kode genereret af ScriptVision - hvordan gemmer man en værdi?

Hej,
Jeg er igang med et projekt, hvor jeg har en kode genereret af et skodprogram ved navn ScriptVision.
Det er blevet brugt at lave en række forms, hvor man indsamler information. Dog kan det ikke bruges til at gemme værdierne. Det skal jeg gerne have det til nu.

Her er en stump koden, hvor jeg mener at den laver er checkbox:

VERSION 5.0
Begin VB.Form Data
  BackColor = &Hffffff
  BorderStyle = 1 'Fixed Single
  Caption = "Form4"
  ClientHeight = 8085
  ClientLeft = 765
  ClientTop = 1050
  ClientWidth = 10215
  ControlBox = 0 'False
  Height = 8400
  Left = 750
  LinkMode = 1 'Source
  LinkTopic = "Data"
  MaxButton = 0 'False
  MDIChild = -1 'True
  MinButton = 0 'False
  ScaleHeight = 539
  ScaleMode = 3 'Pixel
  ScaleWidth = 681
  Top = 750
  Width = 10245
  Begin VB.CheckBox Ulykke
      Top = 3780
      Left = 4155
      Width = 855
      Height = 270
      BackColor = &H00FFFFFF
      ForeColor = &H00000000
      TabIndex = 34
      Enabled = -1 'True
      TabStop = -1 'True
      BeginProperty Font  {FB8F0823-0164-101B-84ED-08002B2EC713}
        Name = "Arial"
        Charset = 0
        Weight = 400 'Normal
        Size = 10.000000
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
      Tag = "Ulykke"
      Caption = "Ulykke"
  End

Jeg vil ud fra det gerne gemme den værdien (Ulykke), så jeg kan vise det på en anden form, som en string.

Ud over dette skal jeg også gemme nogle værdier fra textfelter hvor der bliver indtastet. Men det kan vi tage bagefter, når dette virker (til xtra points of course :) ).
Avatar billede sjh Nybegynder
09. marts 2005 - 15:18 #1
Øh, er det "Value" du mener eller hvad??

Begin VB.CheckBox Ulykke
  Value =  1  'Checked
End
Avatar billede zkou Nybegynder
09. marts 2005 - 16:50 #2
ehhmm....jeg ved det ik helt...jeg er rimlig newbie indenfor vb....
Jeg skal bare have gemt det navn fx. "ulykke" i en variable el. lign. så jeg kan vise det i et felt på en senere form.....
Avatar billede sjh Nybegynder
09. marts 2005 - 16:52 #3
Ulykke.Tag = "Ulykke"
Avatar billede sjh Nybegynder
09. marts 2005 - 16:54 #4
Hvis "Ulykke" er på Form1, så kan du fra fx. Form2 skrive: MsgBox Ulykke.Tag
Avatar billede sjh Nybegynder
09. marts 2005 - 16:54 #5
Det skulle være sådan:

MsgBox Form1.Ulykke.Tag
Avatar billede sjh Nybegynder
09. marts 2005 - 17:01 #6
du kan også lave et Module1 og skrive:

Public chkUlykke As String

så kan du bare skrive:
chkUlykke = "Ulykke"

og hente det med:
MsgBox chkUlykke
Avatar billede sjh Nybegynder
09. marts 2005 - 17:13 #7
Du kan prøve at se her hvordan du kan gøre det..
http://hjem.get2net.dk/sjh/eksperten/598314/Ulykke.zip

Husk at det er "Project1.vbp" du skal åbne i vb..
Avatar billede sjh Nybegynder
09. marts 2005 - 17:19 #8
(..program ved navn ScriptVision) øh, du har vel Visual Basic ??
Avatar billede zkou Nybegynder
09. marts 2005 - 17:38 #9
Ja....jeg har vb, men jeg arbejder videre på et projekt som er genereret vha. det der program. Det er noget lort, men det er nu engang de muligheder jeg har.

Jeg har åbnet dit projekt, og det er meget af det rigtige. Dog ønsker jeg ikke at hive det frem som en msgbox. Det skal bare vises i et tekstfelt på en senere form. Men ellers er det vist lige hvad jeg skal bruge...
Avatar billede sjh Nybegynder
09. marts 2005 - 20:30 #10
Ja, men så setter du da bare en TextBox på din form og bruger den her kode:

navnpådintekstbox.Text = chkUlykke

fx.
Text1.Text = chkUlykke
Avatar billede sjh Nybegynder
09. marts 2005 - 20:32 #11
lige en ting.. Hvad kan "ScriptVision" som "Microsoft Visual Basic" ikke kan??
Avatar billede zkou Nybegynder
09. marts 2005 - 20:37 #12
Ikke en skid.... Det følger bare med til et andet program, som vi bruger. Dette program bruger vb til at vise nogle forms, hvori der ligger noget information fra dette program.  Derfor er det nemmere at bruge ScriptVision når man skal sammenkøre de to ting. Dog er det første gang jeg arbejder med dette, så det kan være at jeg opdager at det faktisk er nemmere bare at droppe mellemledet.....
Avatar billede sjh Nybegynder
09. marts 2005 - 20:43 #13
Har du et link til "ScriptVision" Jeg kunne godt tenke mig at se hvad det er.. :D
Avatar billede zkou Nybegynder
09. marts 2005 - 20:46 #14
Tilbage til spørgsmålet:
Jeg har prøvet at lave dette i min form6:


Private Sub Text1_Change()
Text1.text = form4.chkUlykke
End Sub

form 4 er den form hvor jeg har min chkbox. Text1 er lavet i vb som en textbox.

Den viser ikke noget. Jeg har implenteret det i form4 sådan:

Private Sub Ulykke_Click()
chkUlykke = "der"
If Ulykke.Value = 1 Then
    chkUlykke = "ulykke"
End If
    On Error GoTo Ulykke_Click_Error
    SetFieldValueFromControl Ulykke
    Exit Sub
Ulykke_Click_Error:
    HandleUserError "Form Data, Control Bil, OnChange event"
    Exit Sub
End Sub
Avatar billede zkou Nybegynder
09. marts 2005 - 20:48 #15
ehh....fik hvis ik lige helt afsluttet den kommentar:

Ulykke_Click_Error:
    HandleUserError "Form Data, Control Ulykke, OnChange event"
    Exit Sub
End Sub

Sådan det var vist det.  Textboxen på form6 viser ingenting. Så vidt jeg kan regne ud burde den vise enten "der" eller "ulykke"....Men det gør den ikke....
Avatar billede sjh Nybegynder
09. marts 2005 - 20:53 #16
sådan kan du ikke gøre, prøv:

Private Sub Text1_Change()
  Text1.text = chkUlykke
End Sub

PS. Du skal altså skrive noget i Text1 for at få Text1_Change() til at udfør koden.
Avatar billede sjh Nybegynder
09. marts 2005 - 20:54 #17
Hvad gør SetFieldValueFromControl ??
Avatar billede sjh Nybegynder
09. marts 2005 - 20:58 #18
på Form6 kan du fx. gøre sådan:

Private Sub Form_Load()
  Text1.Text = chkUlykke
End Sub

så henter den det som står i chkUlykke når du åbner Form6
Avatar billede zkou Nybegynder
09. marts 2005 - 21:30 #19
Jeg ved ik SetFieldValueFromControl, det bliver bare autogenereret når jeg lavet en chkbox i vb6
Avatar billede zkou Nybegynder
09. marts 2005 - 21:33 #20
Nevermind....det virker....drop et svar.

Jeg har stadig det hængeparti med at gemme en string fra en textbox og vise den igen...men jeg opretter lige et nyt spørgsmål...
Avatar billede sjh Nybegynder
09. marts 2005 - 21:59 #21
Prøv nu at se på den her så, den viser det i en TextBox.
http://hjem.get2net.dk/sjh/eksperten/598314/Ulykke2.zip
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester