김윤호닷컴

출처 : http://www.devpia.com/Maeul/Contents/Detail.aspx?BoardID=45&MAEULNo=18&no=509&ref=509 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim myControl As String = "Label" Dim i As Integer = 3 FindByName(Of Label)(myControl + i.ToString()).Text = "test" '(myControl + i.ToString()).FindByName(Of Label)(Me).Text ..

배열내의 텍스트를 종류별로 정리해서 수치를 출력.. Module Module1 Sub Main() Dim str As String() = {"aaa", "bbb", "bbb", "돌쇠", "ccc", "ddddddd", "aaa", "aaa", "돌쇠"} Dim dic As New Dictionary(Of String, Integer) For i = 0 To str.Length - 1 If dic.ContainsKey(str(i)) = False Then dic.Add(str(i), 0) End If dic(str(i)) += 1 Next Dim pair As KeyValuePair..

dim i as integer = 6421504dim c as colorc = System.Drawing.Color.FromArgb(i)Probably the Alpha channel is missing, so you'd have to usec = System.Drawing.Color.FromArgb(i or &Hff000000)

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork For i = 1 To 100 Threading.Thread.Sleep(10) BackgroundWorker1.ReportProgress(i) Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BackgroundWorker1.RunWorkerAsync..

오토잇에서 쓰이는 ImageSearchDLL (확실하지않음..)반환값은 Bool,x,y,width,height Public Shared Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal str As String) As IntPtr 사용 Dim result As String = ImageSearch(0, 0, Screen.PrimaryScreen.Bounds.Width,Screen.PrimaryScreen.Bounds.Height, "C:\a.png") '*30 C:\a.png (1~255) MsgBox(Marshal.PtrToStringAnsi(result))

Converting PDF to Text in C# http://www.codeproject.com/Articles/12445/Converting-PDF-to-Text-in-C-2 좋은 평가를 주었네요. 필요하면 써보시는것도 좋을 듯 싶습니다. 파일명을 기재하면 text 변수에 값이 할당 되고 이를 return 한 구문입니다. 심플하네요. private static string parseUsingPDFBox(string filename) { PDDocument doc = P..

http://stackoverflow.com/questions/10899828/vb-net-check-if-image-existing-in-another-image '******************************************************************************* '* '* Abdias Software '* '* Bitmap extension: .Contains(bmp) '* KN '* '* 2012-09-26 Initial version '* 2012-09-26 Minor optimization, exit for's impl. '* '****************************************************..

Dim LocalMousePosition As Point PublicDeclareFunction GetPixel Lib "gdi32.dll" (ByVal hdc AsInteger, ByVal x AsInteger, ByVal y AsInteger) AsInteger PublicDeclareFunction GetWindowDC Lib "user32.dll" (ByVal hwnd AsInteger) AsInteger PublicDeclareFunction GetDesktopWindow Lib "user32.dll" () AsInteger Dim winDc = GetWindowDC(GetDesktopWindow) Dim color = GetPixel(winDc, LocalMo..

Dim Mypath As String = System.Windows.Forms.Application.StartupPath