Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


New frmDocument (nås inte!!)

Postades av 2006-03-22 11:14:38 - Berne Nielsen, i forum visual basic - allmänt, Tråden har 10 Kommentarer och lästs av 818 personer

Vet någon hur man gör för att nå nyskapade formulär, tex om man vill skriva i en TextBox. Formulären spottas fram med koden nedan.
Märkte att följande inte gick hem, frmDocument(2).txtBla.text = "Hej"
och har sedan försökt med både ditt o datt...

Private Sub LoadNewDoc()
    Static lDocumentCount As Long
    Dim frmD As frmDocument
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmDocument
    frmD.Caption = "Document " & lDocumentCount
    frmD.Show
End Sub


Svara

Sv: New frmDocument (nås inte!!)

Postades av 2006-03-22 13:01:18 - Andreas Hillqvist

Jag ser att du har två alternativ: Skapar en egen samling
Modul:

Private mDocuments As New Collection


Public Sub AddDocumet(Value As frmDocument)
    mDocuments.Add Value, "hWnd:" & Value.hWnd
End Sub

Public Sub RemoveDocumet(Value As frmDocument)
    mDocuments.Remove "hWnd:" & Value.hWnd
End Sub

Public Function Documets(Index As Long) As frmDocument
    Set Documets = mDocuments.Item(Index)
End Function

Public Function NumberOfDocumets() As Long
    NumberOfDocumets = mDocuments.Count
End Function

frmDocument
Private Sub Form_Load()
    AddDocumet Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    RemoveDocumet Me
End Sub


Eller använder Forms samlingen:
Function Documents(Index As Long) As frmDocument
Dim Form As Form
Dim Count As Long
    For Each Form In Forms
        If TypeOf Form Is frmDocument Then
            Count = Count + 1
            If Count = Index Then
                Set Documents = Form
                Exit For
            End If
        End If
    Next
End Function

Public Function NumberOfDocumets() As Long
Dim Form As Form
Dim Count As Long
    For Each Form In Forms
        If TypeOf Form Is frmDocument Then
            Count = Count + 1
        End If
    Next
    NumberOfDocumets = Count
End Function


Svara

Sv:New frmDocument (nås inte!!)

Postades av 2006-03-24 10:38:27 - Berne Nielsen

Tackar, det fungerar fint!

når nu ett formulär med:

Private Sub Command2_Click()
    Dim fdoc As frmDocument
    Set fdoc = Documents(2) 'nr på önskat frmDocument
    fdoc.SetFocus
    fdoc.rtfText.Text = "Hej"
End Sub


nummerna ändras dock om man stänger något av fönstren, men det kan man ganska lätt hantera med någon egen personlig numrering. Om någon undrar...
/bn


Svara

Sv: New frmDocument (nås inte!!)

Postades av 2006-03-24 13:49:16 - Andreas Hillqvist

Om du förklarar vad du vill göra i ett mer större perspektiv så kanske jag kan ge en bättre lösning.
Är det ett chattprogram du gör? Är det att du vill länka ett fönster till en annan användare?


Svara

Sv:New frmDocument (nås inte!!)

Postades av 2006-03-24 15:25:33 - Berne Nielsen

Hej

Jag filar på ett redovisningsprogram som beroende på indatafilens innehåll öppnar ett antal fönster, vilka i sin tur skapas från samma formulär.


Svara

Sv: New frmDocument (nås inte!!)

Postades av 2006-03-24 17:15:34 - Andreas Hillqvist

Vilket syfte har din Command2?


Svara

Sv:New frmDocument (nås inte!!)

Postades av 2006-03-26 22:08:09 - Berne Nielsen

inget, var bara en testslinga för anropet


Svara

Sv: New frmDocument (nås inte!!)

Postades av 2006-03-27 15:10:37 - Andreas Hillqvist

Det inser jag. Men jag antar att du har ett behov av att komma åt fönstrena. Dett är detta behov jag bad dig identifiera.


Svara

Sv:New frmDocument (nås inte!!)

Postades av 2006-04-11 09:43:27 - Berne Nielsen

ok, jo behovet finns. Just nu identifierar jag formulären med hjälp av dess Caption, vilka tilldelats olika nummer (ej slump eller ordningsnummer. Tex kan fönster 2 och 4 vara öppna medan användaren valt att tillfälligt stänga fönster 1 och 3). Inte en optimal lösning med Caption:en... finns det ett enklare sätt? Indexering?

Det jag behöver göra då och då är att rita i en picturebox som finns med redan i originalformuläret.

(ps. om man ritat något i en picturebox (tex med .Line) varför försvinner detta om man tillfälligt har ett annat program eller fönster över. Finns det en smart lösning/inställning eller är det bara att rita om med jämna mellanrum för att försäkra sig om att linjerna finns där??) oj.. detta kanske skulle bli en egen fråga...


Svara

Sv: New frmDocument (nås inte!!)

Postades av 2006-04-11 10:55:17 - Andreas Hillqvist

Sätt pictureboxen till autoredraw.


Svara

Sv:New frmDocument (nås inte!!)

Postades av 2006-04-11 11:21:02 - Berne Nielsen

Åhhhh...
Vilken lättnad!!! Hur f-n har jag kunnat missa denna inställning??
Tusen tack!!!


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 723
27 958
271 751
457
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies