분류 전체보기202 롤링 ListBox Private Sub 롤링실행버튼_Click(sender As Object, e As EventArgs) Handles 롤링실행버튼.Click CheckForIllegalCrossThreadCalls = False '쓰레드 오류 무시(정상적으로 사용하려면 delegate와 Invoke 사용 필요) Me.BackgroundWorker1.RunWorkerAsync() End Sub Public Sub Delay(ByVal Second As Integer) Dim _startsecond As Integer _startsecond = Environment.TickCount While (True) If (Environment.TickCount - _startsecond >= Second * 1000) Then E.. 2018. 4. 16. Windows Search Index 참고 system.search.entryIDhttps://msdn.microsoft.com/en-us/library/windows/desktop/bb760166(v=vs.85).aspx system.search.UrlToIndexhttps://msdn.microsoft.com/en-us/library/windows/desktop/bb760177(v=vs.85).aspx Windwos Search 개요(MSDN)https://msdn.microsoft.com/en-us/library/windows/desktop/aa965362(v=vs.85).aspx 파일 및 디렉토리 열거https://msdn.microsoft.com/en-us/library/dd997370(v=vs.100).aspx system.data.o.. 2018. 4. 12. 숫자 올림, 반올림, 버림 2018. 4. 11. 이미지 파일 첨부하여 Reszie하기(feat. 파일크기 제한) Try Dim ofdImage As New OpenFileDialog ofdImage.InitialDirectory = Application.StartupPath ofdImage.CheckFileExists = True ofdImage.DefaultExt = "doc" ofdImage.Multiselect = False ofdImage.Filter = "이미지|*.jpg*;*.png" If ofdImage.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then '첨부하려는 그림파일이 2MB 미만으로 제한 Dim img_file As New FileInfo(ofdImage.FileName) If img_file.Length / 1024 / 1024 > 2 .. 2018. 4. 2. 이전 1 ··· 37 38 39 40 41 42 43 ··· 51 다음
