ab.com コミュニティ

ActiveBasicを通したコミュニケーション
前回の訪問日時: 2019年12月12日(木) 23:48 現在時刻 - 2019年12月12日(木) 23:48

All times are UTC+09:00




 [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2019年10月30日(水) 11:30 
CSVファイルに123456というデータがあったら
それを読んで、画面に比較的大きな文字に表示したいのですが
具体的にどのようにすればよいでしょうか。
コードを教えてくださる方お願いします。


ページトップ
   
 
投稿記事Posted: 2019年10月30日(水) 15:51 
オフライン

登録日時: 2006年2月05日(日) 17:10
記事: 203
お住まい: 東京都
画面とは何をさしますか?
①N88BASICプロンプト
②DOSプロンプト
③ノーマルウインドウ
よろしくお願いいたします。


ページトップ
   
 
投稿記事Posted: 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)



ページトップ
   
 
 [ 3 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: Bing [Bot], CCBot, SemrushBot & ゲスト[0人]


トピック投稿: 不可
返信投稿: 不可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean