일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
- array
- allauth
- Django-allauth
- GraphQL
- python
- numpy
- FastAPI
- check_password
- tkinter Radio 동적버튼
- Django
- flask
- graphene-django
- SQL
- for loop
- Today
- Total
목록[PL]/VB & VB.NET (38)
객
아래 DrawLine , DrawArc , DrawRectangle 세가 모형을 하나로 합쳐서 작성한 것입니다.
Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Graphics Public Class DrawArc ' 프로그램명 : 원 그리기 ' 제작일 : 2010. 01. 08 ' 제작자 : 객과 함께. Dim RcDraw As Rectangle Dim Rc As New Rectangle Dim startAngle As Integer = 45 Dim sweepAngle As Integer = 360 Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEv..
Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Graphics Public Class DrawRectangle ' 프로그램명 : 사각형 그리기 ' 제작일 : 2010. 01. 08 ' 제작자 : 객과 함께. Dim RcDraw As Rectangle Dim Rc As New Rectangle Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown RcDraw.X = e.X RcDraw..
Imports System.Windows.Forms Imports System.Drawing.Graphics Public Class Form3 ' 프로그램명 : 사각형 그리기 ' 제작일 : 2010. 01. 08 ' 제작자 : 객과 함께. Dim RcDraw As Rectangle Dim Rc As New Rectangle Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown RcDraw.X = e.X RcDraw.Y = e.Y End Sub Private Sub Fo..
비주얼 베이직 에서 외부 프로그램을 실행 하기 위해서는 해당 위치에 noteProcess.Start() 입력을 하고 종료 할때에는 noteProcess.CloseMainWindow()를 입력한다. 물론 위 함수를 호출 하기 위해서는 System.Threading , System.Diagnostics 를 임포트한다. 예 ) Button 경우 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst..