VB.net106 소스 정규식 표현 방법 '카테고리 소스 정규식 표현 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click On Error Resume Next Dim count As Integer Dim 카테_이름 As New Regex("(.*?)", RegexOptions.IgnoreCase) Dim 카테_URL As New Regex("", RegexOptions.IgnoreCase) Dim 카테_그림 As New Regex("\t\t\t\t\t\t\n\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\n\t\t\t\t\t\t\t\t\t", RegexOptions.IgnoreCase) 'Dim 내_URL As New Regex("(.*?)",.. 2018. 3. 19. 정규식 표현 http://blog.eairship.kr/205사이트 참조 예제 With New Post_it .Show() .BringToFront() .WindowState = FormWindowState.Normal .Width = 900 .TextBox1.Text = Me.Label2.Text .RichTextBoxEx1.Rtf = DataGridView5(3, e.RowIndex).Value .Label7.Text = DataGridView5(0, e.RowIndex).Value '날짜 If Val(Format(Now.AddHours(-2), "yyyyMMddHHmmss")) > Val(Label1.Text) Then '전화번호 '.RichTextBoxEx1.Text = Regex.Replace(.RichTe.. 2018. 3. 19. 다른창 띠위서 그래프 그리기(MSChart이용) MS Chart 이용하여 그래프 그리기도구상자에 chart 도구를 추가해야 함.Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() Form2.WindowState = FormWindowState.Normal Form2.BringToFront() With Form2.Chart1.Series(0) .Points.Clear() .Points.AddY(Val(TextBox1.Text)) .Points.AddY(Val(TextBox10.Text)) .Points.AddY(Val(TextBox15.Text)) .Poin.. 2018. 3. 19. 테두리가 없는 폼이동 테두리가 없는 폼이동Dim First As Point Private Sub Form1_MouseDown(ByVal sender As Object, _ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDownFirst = New Point( _PointToScreen(e.Location).X - Me.Location.X, _PointToScreen(e.Location).Y - Me.Location.Y _) '폼의 위치와 현재 마우스 위치의 화면좌표 차를 First에 대입 End Sub Private Sub Form1_MouseMove(ByVal sender As Object, _ByVal e As System.Windows.Forms.Mous.. 2018. 3. 19. 이전 1 ··· 18 19 20 21 22 23 24 ··· 27 다음