분류 전체보기203 이미지 파일 첨부하여 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. Form 확대/축소 '버튼 클릭 시 일할계산 폼확대축소 변경 'Dim 폼확대축 As Integer = 0 'Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click ' 폼확대축 = 폼확대축 + 1 ' If 폼확대축 Mod 2 = 0 Then ' 클릭 수를 2로 나누었을때 남은수가 0일경우에 따라 정렬 방법 변경 ' Me.Size = New System.Drawing.Size(985, 751) ' Else ' Me.Size = New System.Drawing.Size(985, 640) ' End If 'End Sub 2018. 3. 30. 특정글자가 포함되어있는 경우의 조건문 textbox1에서 "헌호" 라는 글자가 포함되는 경우 조건식임 =================================== If InStr(TextBox1.Text, "헌호") 0 Then End If=================================== 위 식의 설명) Instr(X) 0 2018. 3. 30. Windows Form > Sicker Form으로 만들기 '### 폼 스티커###################################################### Dim First As Point Private FormReSizeType As String = "None" Private MoveMouseX As Integer ' 이동하기전 월래 마우스 X 위치 Private MoveMouseY As Integer ' 이동하기전 월래 마우스 Y 위치 ' 위치 기억하기 위한 변수 설정(Panel Mouse_Move 이벤트와 MemoSize함에서 각각 쓰임, Load시 기본셋팅값 현재 위치로 해야 함.) Dim ReSize_LocationX As Integer = Me.Location.X Dim ReSize_LocationY As Integer = Me.L.. 2018. 3. 30. 이전 1 ··· 38 39 40 41 42 43 44 ··· 51 다음