달력

11

« 2019/11 »

  •  
  •  
  •  
  •  
  •  
  • 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

'VB'에 해당되는 글 2

  1. 2010.04.08 VisualBasic 파일 입출력
  2. 2010.04.08 VisualBasic 폼을 원으로 만들기
2010.04.08 14:01

VisualBasic 파일 입출력 Language/VB2010.04.08 14:01

' 파일 입력 예제   
    Dim f As Integer
    Dim str As String
       
    f = FreeFile()
   
    Open App.Path & "\config.ini" For Input As #f
        Line Input #f, server
        Line Input #f, ID
        Line Input #f, pw
        Line Input #f, str
        cycleTime = str
       
    Close #f


' 파일 출력 예제
    Dim f As Integer
       
    f = FreeFile()
    Open App.Path & "\Log\" & Replace(Date, "-", "") & "_Log_Err.txt" For Append As #f
        Print #f, Date & " " & Format(Time, "hh:mm:ss") & "   " & str
    Close #f
Posted by 현자

댓글을 달아 주세요

2010.04.08 12:42

VisualBasic 폼을 원으로 만들기 Language/VB2010.04.08 12:42

' 선언부

' ### 폼 원형으로 설정
Private Declare Function CreateEllipticRgn Lib "gdi32.dll" ( _
    ByVal X1 As Long, _
    ByVal Y1 As Long, _
    ByVal X2 As Long, _
    ByVal Y2 As Long _
) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal hRgn As Long, _
    ByVal bRedraw As Boolean _
) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" ( _
    ByVal hObject As Long _
) As Long

' 사용시

' ### 폼을 둥글게 설정한다.
Dim hRgn As Long
hRgn = CreateEllipticRgn(0, 0, ScaleX(Me.Width, vbTwips, vbPixels), ScaleY(Me.Height, vbTwips, vbPixels))
SetWindowRgn hWnd, hRgn, False
DeleteObject hRgn
Posted by 현자

댓글을 달아 주세요