Fråga : kan du göra snirkeln bommar för i en disapear ta framsubform, tills du behövs

Hi EE
I har en subform som fortlöpande bruk bildar. jag har för närvarande den som är fastställd för snirkel, bommar för lodlinjeonly
However som snirkeln bommar för är alltid närvarande, om även informationen är ALL viewable på form.Can du gör den, så de inte är in att beskåda, tills till skärm så dem för många rekord krävs? " klar "

Svar : kan du göra snirkeln bommar för i en disapear ta framsubform, tills du behövs

Stilla lärande stamgästuttryck för förmiddag I så testar detta med ett litet tar prov sparar och kontrollerar det omgående fönstret, för dig uncommenten som fodra, som överskrivar original, sparar!

Jag använde dessa platser för att hjälpa mig att framkalla RegExen:
http://www.codeproject.com/KB/dotnet/regextutorial.aspx
http://www.regular-expressions.info/

Är här kodifiera:
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:

Allmänhet klassificerar Form1

    Den privata suben Button1_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar Button1.Click
        Using ofd som nya OpenFileDialog
            Om ofd.ShowDialog = Windows.Forms.DialogResult.OK därefter
                Försök
                    Dunkel txt som stränger = My.Computer.FileSystem.ReadAllText (ofd.FileName)

                    Debug.Print (”original- text: ”)
                    Debug.Print (”,--------------------------------------------------”)
                    Debug.Print (txt)
                    Debug.Print ("")

                    Dunkelt mönstra som stränger = ”(. +) \ 1 {5,}”,
                    txt = System.Text.RegularExpressions.Regex.Replace (txt, mönstrar, ""),

                    Debug.Print (”ändrad text: ”)
                    Debug.Print (”,--------------------------------------------------”)
                    Debug.Print (txt)

                    'Uncomment den nedanföra fodra, när du är säker RegExen, är funktionsduglig som önskad!
                    'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt som, är falska)
                Fånga före detta som undantag
                    MessageBox.Show (”spara: ” & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, ”felet som ändrar, sparar”, MessageBoxButtons.OK, MessageBoxIcon.Error),
                Avsluta försök
            Avsluta om
        Avsluta Using
    Avsluta suben

Avsluta klassificerar
Andra lösningar  
 
programming4us programming4us