김윤호닷컴

Imports System.Windows.Forms Module ReadWritingMemory Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer Private Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As..

Function GetScreenPixel(ByVal pt As Point) As Color Using bmp As New Bitmap(1, 1) Using g As Graphics = Graphics.FromImage(bmp) g.CopyFromScreen(pt, Point.Empty, New Size(1, 1)) Return bmp.GetPixel(0, 0) End Using End Using End Function

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32 Dim p As POINTAPI GetCursorPos(p) Dim str As String = p.x & " " & p.y

http://www.devpia.com/MAEUL/Contents/Detail.aspx?BoardID=45&MAEULNO=18&no=511&page=1 이런저런 코딩중에 좀 더 간단한 Sub호출을 위해 방법을 찾다가 알게 된건데요... 항상 클릭 이벤트를 받아서 select case 등으로 각각의 서브를 호출했었는데 간단히 문자열로 Sub를 호출하는 방법이 있었네요같은 클래스 안에..

출처 : 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..

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..

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..