본문 바로가기

전체 글202

소스 정규식 표현 방법 '카테고리 소스 정규식 표현 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.
실시간 알림창 포커스 안가지고 최상위로뛰우기 실시간 알림창 포커스 안가지고 최상위로뛰우기 소스 팝업-실시간작게.zip 탑모스트는 api함수로 실행하고, 위 코드를 함께 사용하시면포커스 없이 탑모스트 창으로 열수 있습니다.위 자료보고 도움받아 해결해서 소스코드 남깁니다. 열리는 창 소스 한부분에 아래쪽 코드 넣으시면 됩니다. #Region " 포커스 없이 탑모스트로 열기" Private Const HWND_TOPMOST As Integer = -1 Private Const HWND_NOTOPMOST As Integer = -2 Private Const SWP_NOSIZE As Integer = &H1 Private Const SWP_NOMOVE As Integer = &H2 Private Const SWP_NOACTIVATE As Integer = .. 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.