ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 21:04

全ての表示時間は UTC+09:00 です




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


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

登録日時: 2006年2月05日(日) 17:10
記事: 215
お住まい: 東京都
画面とは何をさしますか?
①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 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[31人]


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

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