VB.net106 C# > VB.NET 변환기 http://converter.telerik.com/ 2018. 4. 24. 롤링 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. 숫자 올림, 반올림, 버림 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 ··· 15 16 17 18 19 20 21 ··· 27 다음
