Avatar billede netassist Juniormester
06. august 2003 - 21:41 Der er 23 kommentarer og
1 løsning

txteditor.Size = New Size(Me.Size.Width - 40, Me.Size.Height - 50

jeg har dennne kode som driller mig lidt..
txteditor.Size = New Size(Me.Size.Width - 40, Me.Size.Height - 50)

kan man ikke skrive en kode so den passer men plas i fromen ..
Avatar billede netassist Juniormester
06. august 2003 - 21:42 #1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txteditor.Size = New Size(Me.Size.Width - 40, Me.Size.Height - 50)
    End Sub
Avatar billede omen Nybegynder
06. august 2003 - 22:19 #2
Altså hvad præcist er det du vil?
Når programmet åbnes, så skal txteditor fylde hele formen ud?
Avatar billede netassist Juniormester
07. august 2003 - 14:04 #3
ja tak
Avatar billede netassist Juniormester
08. august 2003 - 14:41 #4
er der ikke nogle der kan hjælpe mig ????
Avatar billede netassist Juniormester
10. august 2003 - 16:22 #5
så må jeg jo lukke igen .. ;(
Avatar billede omen Nybegynder
10. august 2003 - 16:29 #6
Hey, lige 2 secs... *L*
Avatar billede omen Nybegynder
10. august 2003 - 16:30 #7
Hvorfor gør du det ikke bare i Design Mode? Noget specielt der gør at du ikke gør det?
Avatar billede omen Nybegynder
10. august 2003 - 16:33 #8
Dim txtWidth As String, txtHeight As String
        txtWidth = Me.Width
        txtHeight = Me.Height
        TextBox1.Width = txtWidth - 40
        TextBox1.Height = txtHeight - 50
Avatar billede omen Nybegynder
10. august 2003 - 16:40 #9
Ok, der var jeg sløset:

Istedet for 'Dim txtWidth As String, txtHeight As String' så:
Dim txtWidth, txtHeight As String
Avatar billede netassist Juniormester
10. august 2003 - 17:35 #10
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents mnuarkiv As System.Windows.Forms.MenuItem
    Friend WithEvents mnurediger As System.Windows.Forms.MenuItem
    Friend WithEvents mnusøg As System.Windows.Forms.MenuItem
    Friend WithEvents mnuny As System.Windows.Forms.MenuItem
    Friend WithEvents mnuÅben As System.Windows.Forms.MenuItem
    Friend WithEvents Mnugem As System.Windows.Forms.MenuItem
    Friend WithEvents mnusep As System.Windows.Forms.MenuItem
    Friend WithEvents Mnuafslut As System.Windows.Forms.MenuItem
    Friend WithEvents txteditor As System.Windows.Forms.RichTextBox
    Friend WithEvents OpenFile As System.Windows.Forms.OpenFileDialog
    Friend WithEvents SaveFile As System.Windows.Forms.SaveFileDialog
    Friend WithEvents Mnukopier As System.Windows.Forms.MenuItem
    Friend WithEvents MnuIndseat As System.Windows.Forms.MenuItem
    Friend WithEvents Mnuom As System.Windows.Forms.MenuItem
    Friend WithEvents mnuprint As System.Windows.Forms.MenuItem
    Friend WithEvents Print As System.Windows.Forms.PrintDialog
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.mnuarkiv = New System.Windows.Forms.MenuItem()
        Me.mnuny = New System.Windows.Forms.MenuItem()
        Me.mnuÅben = New System.Windows.Forms.MenuItem()
        Me.Mnugem = New System.Windows.Forms.MenuItem()
        Me.mnuprint = New System.Windows.Forms.MenuItem()
        Me.mnusep = New System.Windows.Forms.MenuItem()
        Me.Mnuafslut = New System.Windows.Forms.MenuItem()
        Me.mnurediger = New System.Windows.Forms.MenuItem()
        Me.Mnukopier = New System.Windows.Forms.MenuItem()
        Me.MnuIndseat = New System.Windows.Forms.MenuItem()
        Me.mnusøg = New System.Windows.Forms.MenuItem()
        Me.Mnuom = New System.Windows.Forms.MenuItem()
        Me.txteditor = New System.Windows.Forms.RichTextBox()
        Me.OpenFile = New System.Windows.Forms.OpenFileDialog()
        Me.SaveFile = New System.Windows.Forms.SaveFileDialog()
        Me.Print = New System.Windows.Forms.PrintDialog()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuarkiv, Me.mnurediger, Me.mnusøg, Me.Mnuom})
        '
        'mnuarkiv
        '
        Me.mnuarkiv.Index = 0
        Me.mnuarkiv.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuny, Me.mnuÅben, Me.Mnugem, Me.mnuprint, Me.mnusep, Me.Mnuafslut})
        Me.mnuarkiv.Text = "&Arkiv"
        '
        'mnuny
        '
        Me.mnuny.Index = 0
        Me.mnuny.Text = "&Ny"
        '
        'mnuÅben
        '
        Me.mnuÅben.Index = 1
        Me.mnuÅben.Text = "&Åben"
        '
        'Mnugem
        '
        Me.Mnugem.Index = 2
        Me.Mnugem.Text = "&Gem"
        '
        'mnuprint
        '
        Me.mnuprint.Index = 3
        Me.mnuprint.Text = "&Print"
        '
        'mnusep
        '
        Me.mnusep.Index = 4
        Me.mnusep.Text = "-"
        '
        'Mnuafslut
        '
        Me.Mnuafslut.Index = 5
        Me.Mnuafslut.Text = "&Afslut"
        '
        'mnurediger
        '
        Me.mnurediger.Index = 1
        Me.mnurediger.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Mnukopier, Me.MnuIndseat})
        Me.mnurediger.Text = "&Rediger"
        '
        'Mnukopier
        '
        Me.Mnukopier.Index = 0
        Me.Mnukopier.Text = "&Kopier"
        '
        'MnuIndseat
        '
        Me.MnuIndseat.Index = 1
        Me.MnuIndseat.Text = "&Indsæt"
        '
        'mnusøg
        '
        Me.mnusøg.Index = 2
        Me.mnusøg.Text = "&Søg"
        '
        'Mnuom
        '
        Me.Mnuom.Index = 3
        Me.Mnuom.Text = "&om"
        '
        'txteditor
        '
        Me.txteditor.Name = "txteditor"
        Me.txteditor.Size = New System.Drawing.Size(288, 264)
        Me.txteditor.TabIndex = 0
        Me.txteditor.Text = ""
        '
        'SaveFile
        '
        Me.SaveFile.FileName = "doc1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txteditor})
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "Textbehandling"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim txtWidth, txtHeight As String
    End Sub
    Private Sub Mnuafslut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnuafslut.Click
        End
    End Sub
Avatar billede omen Nybegynder
10. august 2003 - 17:41 #11
Ok, uden at jeg gider læse alt den kode igennem, så bare skriv hvad det er du vil!
Avatar billede omen Nybegynder
10. august 2003 - 17:58 #12
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim txtWidth As String, txtHeight As String
        txtWidth = Me.Width
        txtHeight = Me.Height
        TextBox1.Width = txtWidth - 40
        TextBox1.Height = txtHeight - 50

End Sub
Avatar billede netassist Juniormester
10. august 2003 - 20:44 #13
jamen passer ikke ud=)
Avatar billede omen Nybegynder
10. august 2003 - 21:08 #14
Jo det gør den her... du må gøre noget forkert så!
Avatar billede netassist Juniormester
11. august 2003 - 12:46 #15
nå oki ..??
Avatar billede omen Nybegynder
11. august 2003 - 17:33 #16
Whatever... gider ikke hjælpe mere her!
Avatar billede netassist Juniormester
12. august 2003 - 20:09 #17
du har sikker ret kan du ikke komme men et svar ??
Avatar billede omen Nybegynder
12. august 2003 - 20:33 #18
Ok, vil have et projekt fra mig hvor det virker?
Avatar billede netassist Juniormester
12. august 2003 - 20:36 #19
ja ville være fedt .
jeg sider og lejer men det fra en bog ..
jeg skal lave en system til nogle mensker på 2 md og det driller bare
Avatar billede omen Nybegynder
12. august 2003 - 20:41 #20
Ok, lad mig komme tilbage til dig om et par timer! Ska lige se TV osv :)
Avatar billede netassist Juniormester
12. august 2003 - 20:47 #21
det er oki det haster ikke
Avatar billede omen Nybegynder
12. august 2003 - 22:29 #22
http://fwm.o4.dk/misc.zip
Sådan! Hvis du vil have yderligere hjælp kan du sende mig dit MSN email... så har du altid hurtig hjælp..
Avatar billede netassist Juniormester
12. august 2003 - 22:37 #23
vil gerne man hvad er addy
Avatar billede omen Nybegynder
12. august 2003 - 22:43 #24
Send mig din på fwm@gyxi.dk !
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