Vraag : kunt u rolbars in een toegang subform tot nodig disapear maken

Hallo heeft EE
I een subform die ononderbroken vormen gebruikt. ik heeft momenteel het plaatste want de rol verticale only
However verspert de rolbar altijd aanwezig is zelfs als de informatie ALLEN op form.
Can viewable is u het maakt zodat zijn zij niet in mening tot aan vele verslagenvertoning zo zij worden vereist?

Antwoord : kunt u rolbars in een toegang subform tot nodig disapear maken

Ik leer nog de Regelmatige Uitdrukkingen zo dit met een klein steekproefdossier testen en het Directe venster vóór u uncomment de lijn controleren die het oorspronkelijke dossier beschrijft!

Ik gebruikte deze plaatsen om me te helpen RegEx ontwikkelen:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Hier is de code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Openbare Klasse Form1

    Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
        Het gebruiken ofd als Nieuwe OpenFileDialog
            Als ofd.ShowDialog = Windows.Forms.DialogResult.OK toen
                Probeer
                    Verduister txt als Koord = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print („Oorspronkelijke Tekst: “)
                    Debug.Print („“)
                    Debug.Print (txt)
                    Debug.Print ("")

                    Schemerig patroon als Koord = „(. +) \ 1 {5,}“
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, patroon, "")

                    Debug.Print („Gewijzigde Tekst: “)
                    Debug.Print („“)
                    Debug.Print (txt)

                    'Uncomment de lijn hieronder wanneer u RegEx zeker bent werkt zoals gewenst!
                    'My.Computer.FileSystem.WriteAllText (Valse ofd.FileName, txt,)
                Vangst ex als Uitzondering
                    MessageBox.Show („Dossier: “ & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, „Fout Dossier“, MessageBoxButtons.OK, MessageBoxIcon.Error die) wijzigen
                Het eind probeert
            Beëindig als
        Beëindig Gebruikend
    Beëindig Sub

Beëindig Klasse
Andere oplossingen  
 
programming4us programming4us