by HSABP » 2019年11月17日(日) 07:28
コード: 全て選択
Dim hdc As HDC, hfont As HFONT, csv As String
Open "unko.csv" For Input As #1
Input #1, csv
Close #1
hdc = GetDC(GetDesktopWindow())
hfont = CreateFont(500 , 0 , 0 , 0 , FW_BOLD , TRUE , TRUE , FALSE ,_
SHIFTJIS_CHARSET , OUT_DEFAULT_PRECIS ,CLIP_DEFAULT_PRECIS , _
DEFAULT_QUALITY , VARIABLE_PITCH or FF_ROMAN , NULL)
SelectObject(hdc , hfont)
TextOut(hdc, 0,0, StrPtr(csv), lstrlen(StrPtr(csv)))
SelectObject(hdc , GetStockObject(SYSTEM_FONT))
DeleteObject(hfont)
ReleaseDC(GetDesktopWindow(), hdc)
[code]Dim hdc As HDC, hfont As HFONT, csv As String
Open "unko.csv" For Input As #1
Input #1, csv
Close #1
hdc = GetDC(GetDesktopWindow())
hfont = CreateFont(500 , 0 , 0 , 0 , FW_BOLD , TRUE , TRUE , FALSE ,_
SHIFTJIS_CHARSET , OUT_DEFAULT_PRECIS ,CLIP_DEFAULT_PRECIS , _
DEFAULT_QUALITY , VARIABLE_PITCH or FF_ROMAN , NULL)
SelectObject(hdc , hfont)
TextOut(hdc, 0,0, StrPtr(csv), lstrlen(StrPtr(csv)))
SelectObject(hdc , GetStockObject(SYSTEM_FONT))
DeleteObject(hfont)
ReleaseDC(GetDesktopWindow(), hdc)
[/code]