⦁ 저번주에 이직하는 회사에 최종합격했다.(MES관련 회사)
⦁ VB로 많이 구성되어 있다고 하셨다.
⦁ 기초는 먼저 공부해봐야 될것 같아서 유료강의를 결제하였다.
Public Class Form1
'vb에서 ;안쓴다.
'if구문도 Java, C#과 다르다
'테이블 레이아웃으로 구획을 나누면 나눈 구획에는 하나의 컨트롤만 들어갈수 있다.
'flowLayoutpannel
'버튼 autosize : 버튼이름이 길때 알아서 버튼의 크기가 조정된다.
'openFileDialog 필터 속성 JPEG Files (*.jpg)|*.jpg|PNG Files (*.png)|*.png|BMP Files (*.bmp)|*.bmp|All files (*.*)|*.*
'Nothing = null vb에서 null을 Nothing으로 사용한다.
'2023.11.21 / 박민준 / strech 체크박스 생성
Private Sub CheckBoxStrech_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxStrech.CheckedChanged
' 실행시킨 이미지가 대화상자에 맞지 않을때 이 체크박스를 누르면 알아서 이미지가
' 맞춰지게 함.
If CheckBoxStrech.Checked Then
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
Else
PictureBox1.SizeMode = PictureBoxSizeMode.Normal
End If
End Sub
'2023.11.21 / 사고뭉치 / 그림 표시
Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
' 그림을 입력하세요라는 대화상자가 열리고 확인을 눌렀을때
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
' 그림이미지 이름과 확장자를 가지고 파일을 실행시킨다.
PictureBox1.Load(OpenFileDialog1.FileName)
End If
End Sub
'2023.11.21 / 사고뭉치 / 그림 삭제
'Nothing = null vb에서 null을 Nothing으로 사용한다.
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
PictureBox1.Image = Nothing
End Sub
'2023.11.21 / 사고뭉치 / 배경색 변경
Private Sub btnSetColor_Click(sender As Object, e As EventArgs) Handles btnSetColor.Click
If ColorDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.BackColor = ColorDialog1.Color
'아래와 같이 응용이 가능하다.
'btnClear.BackColor = ColorDialog1.Color
End If
End Sub
'2023.11.21 / 사고뭉치 / 닫기
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Close()
End Sub
End Class