VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/07/21(Mon) 09:56 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^7: BitBltの使い方 |
下記の３箇所を変更して見てはどうでしょうか？
For n = 0 To 16 Step 0.1 'できるだけ小さい数字にした方が綺麗に
' 正三角形の右半分
For n = 16 To 32 Step 0.1 'できるだけ小さい数字にした方が綺麗に
0.01 位にすると上下方向のどっと抜けが改善されるのですが遅くなるので
別途、別途どっと抜けの工夫をすればいいかも
For n = 0 To 3
' 最初の部分はPicture2より左に少しはみだして貼り付けたい
SplitDraw Picture2, Picture3, Picture4, -1, n * 57 - 5 ' - 8 - (n * 8)
SplitDraw Picture2, Picture3, Picture4, 62, n * 57 - 5 '- 8 - (n * 8)
SplitDraw Picture2, Picture3, Picture4, 125, n * 57 - 5 '- 8 - (n * 8)
SplitDraw Picture2, Picture3, Picture4, 188, n * 57 - 5 '- 8 - (n * 8)
Next n
lngRet = BitBlt(pic1.hDC, X, Y, _
pic3.ScaleWidth, pic3.ScaleHeight, _
pic3.hDC, 0, 0, SRCERASE)
lngRet = BitBlt(pic1.hDC, X, Y, _
pic2.ScaleWidth, -pic2.ScaleHeight, _
pic2.hDC, 0, 0, SRCINVERT)
バックカラーは白で統一した方が綺麗に表示されるようです。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）