객

Imports System.Windows.Forms Public Class Form1 Private Sub OKBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str(2) As String str(0) = CStr(txtName.text) str(1) = CSng(txtAGE.text) Dim lvi As New ListViewItem(str) Try lviListView.Items.Add(lvi) Catch Finally txtName.Text = "" txtAGE.Text = "" End Try End Sub Private Sub Form1_Load(ByVal sender As..

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click SaveFileDialog1.Filter = "Text Files (*.txt) | *.txt" SaveFileDialog1.ShowDialog() If SaveFileDialog1.FileName <> "" Then FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output) PrintLine(1, RichTextBox1.Text) FileClose() End If End Sub 임포트 system.IO미리 선언 해 두어야 ..

Imports System Imports System.IO Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim txtNamePath As String Dim txtName As String Dim FileName As String OpenFileDialog1.Filter = "Text Files|*.txt" OpenFileDialog1.Title = "Text Read 예제" If OpenFileDialog1.ShowDialog() = DialogResult.OK Then txtNamePath = OpenFileDialog1.FileName Rich..

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' ① 기본적으로 이미지 불러오기 'PictureBox1.Image = Bitmap.FromFile("0000.jpg") '============================================================================================== ' ② 디스트 드라이버 오류처리 'Try ' PictureBox1.Image = Bitmap.FromFile("0000.jpg") 'C..

스케치에 그린 다음 평면 플랜을 이동 시키신후 인클루드로 스케치1의 따고 회전을 시킨 다음 로프트돌출을 합니다. 다음에 위에 원형은 스케치에서 그린다음 회전 시켜서 한 것 입니다.