No.5ベストアンサー
- 回答日時:
ループの中の
.Picture3.Picture = LoadPicture(wkAry(i))
に続いて
.Picture3.Line (50, 50)-(2400, 150), , BF
ですよね?
問題ないままに動いております。
こちらではエラーが出ておりません。
Command1_Clickイベントを張っておきます。
-----------------------------------------------------
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
の宣言をした上で
-----------------------------------------------------
Private Sub Command1_Click()
Dim wkAry As Variant
Dim i As Long
Dim lngCntPic As Long
'絵の情報
wkAry = Array( _
"C:\windows\しゃくなげ.bmp" _
, "C:\windows\グリーン ストーン.bmp" _
, "C:\windows\サポテック織り.bmp" _
, "C:\windows\サンタフェ.bmp" _
, "C:\windows\シャボン.bmp" _
)
'ピクチャの数
lngCntPic = UBound(wkAry) + 1
'スクロールピクチャの高さ取得
lngScrollPicH = (lngCntPic + 1) * lngPicH
With Me
.Command1.Enabled = False
.Command2.Enabled = True
With .Picture1
.Visible = True
End With
With .Picture2
.Visible = True
.Width = lngPicW
.Height = lngScrollPicH
.Left = 0
.Top = lngPicH - lngScrollPicH
End With
For i = 0 To lngCntPic - 1
.Picture3.Picture = LoadPicture(wkAry(i))
.Picture3.Line (50, 50)-(2400, 150), , BF
'イメージを取得したいので、ペイントピクチャは使用しない
'Call .Picture2.PaintPicture(.Picture3.Picture, 0, (lngCntPic - i) * lngPicH, lngPicW, lngPicH, 0, 0, .Picture3.ScaleWidth, .Picture3.ScaleHeight, vbSrcCopy)
'イメージを取得したいので、ストレッチぶりっとを使用する
Call StretchBlt(.Picture2.hdc, 0, (lngCntPic - i) * lngPicH, lngPicW, lngPicH, Picture3.hdc, 0, 0, .Picture3.ScaleWidth, .Picture3.ScaleHeight, vbSrcCopy)
If i = 0 Then
'Call .Picture2.PaintPicture(.Picture3.Picture, 0, 0, lngPicW, lngPicH, 0, 0, .Picture3.ScaleWidth, .Picture3.ScaleHeight, vbSrcCopy)
Call StretchBlt(.Picture2.hdc, 0, 0, lngPicW, lngPicH, Picture3.hdc, 0, 0, .Picture3.ScaleWidth, .Picture3.ScaleHeight, vbSrcCopy)
End If
Next i
End With
End Sub
この回答への補足
何度も回答ありがとうございますm(__)m
'.Picture3.Picture = LoadPicture(wkAry(i))
上記文はコメント(')にしています。
No.4
- 回答日時:
文章だけでは、どのようにやって、なぜ実現できていないかがわかりません。
コードの抜粋を公開してみてください。
この回答への補足
先ほど教えていただいたサンプルソース
http://okweb.jp/kotaeru.php3?q=167464の
この一行を変えただけです。
'.Picture3.Picture = LoadPicture(wkAry(i))
.Picture3.Line (50, 50)-(2400, 150), , BF
「ピクチャが不正です」とエラーが発生します。
No.3
- 回答日時:
すいません。
#1の後者の方では実験していませんが、前者の方で、保存できちゃいましたよー
私はWinXPなので、初期設定のビットマップ群のパスを
C:\Winnt⇒C:\Windows
に変更して、コマンドボタン3を追加し、
SavePicture Picture2.Image, "c:\aaa.bmp"
としただけです。
後者の流用でできないのは、AutoRedrawのプロパティが違うのでは?
回答ありがとうございました。
ピクチャ2(子)に画像を取り込むとうまくいきましたが
ピクチャ2(子)にLineで線を描きそれを
ピクチャ1(親)にペイントしようとするとエラーで
戻ってきます。
ピクチャ2(子)の属性(?)をピクチャ1(親)に渡すにはやはり別の方法でないとだめなのでしょうか?
No.2
- 回答日時:
すんません。
日中はVB6がない場所に来ているので、実例でのアドバイスは困難ですー
ExcelVBAではPictureBoxが無いので、擬似的に答えることもできませんですー
帰宅後にサンプルをアップしますねー
No.1
- 回答日時:
Picture親の中に
Picture子1
Picture子2
・・・
Picture子n
があり、Picture親.SvaePictureで子のピクチャを含めて保存したいということですよね?
Picture親の中の子達は、親のサイズ内に全て表示されていますか?
※親の枠をはみ出た位置に配置された子が存在しているのであれば、親に直接描画するしかないと思います。
http://okweb.jp/kotaeru.php3?q=167464
のようにPicture2のサイズを広げ、複数の画像をPicture2に転送して保存する方法が考えられます。
※親の枠をはみ出た位置に配置された子が存在していないのであれば、そのPicure親のイメージを、他のピクチャボックスに転送して、保存したらいいと思います。
http://www.geocities.jp/h_sakusaku/
の「VBサンプル」の「8.画面のスナップ」
この回答への補足
>Picture親の中に
>Picture子1
>Picture子2
>・・・
>Picture子n
>があり、Picture親.SvaePictureで子のピクチャを含め>て保存したいということですよね?
そうです。
Picture親の中の子達は、親のサイズ内に全て表示されています。
後者のサンプルを使ってやったのですが
出来ませんでした。(泣)
新たにピクチャボックス(Picture親2)を用意し
StretchBlt()APIを使って
Picture親の内容をPicture親2にコピーし
SavePicture .Picture親2.Image, strSaveFileName
で保存してみたのですが
やっぱりPicture子nがコピーされずにPicture親の画像のみが保存されました。
どこが悪いのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) 拡張子の選択方法について 4 2022/09/22 22:04
- 写真・ビデオ iphoneからPCへ写真をインポート、保存先がわかりません。 2 2022/09/29 02:06
- Windows 10 壁紙フォルダが表示されない 1 2022/11/16 21:58
- その他(クラウドサービス・オンラインストレージ) ファイルの保存をOnedriveのクラウド上にする方法を教えて欲しいです。 windows11にてデ 2 2023/02/16 13:37
- その他(クラウドサービス・オンラインストレージ) OneDrive同期解除後、同期できていなかったローカルファイルを復元できますか? 1 2023/03/25 12:38
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- その他(クラウドサービス・オンラインストレージ) データ保存先をOneDriveからPC本体に変えたらDocumentとPictureフォルダが消えた 1 2023/07/30 15:48
- デスクトップパソコン ハードディスク修理業者さんって、あとあと変な請求とかします? 6 2022/11/13 13:49
- Windows 10 Windows10のピクチャからiPhoneに画像を移動する方法を教えてください。なるべく簡単な方法 4 2023/04/26 23:17
- ノートパソコン PCのWiFiが繋がらない。 SSDをつけてるのに容量不足の通知が来たり、ソフトが強制終了される。 6 2023/04/27 22:45
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
-
SavePicture
Visual Basic(VBA)
-
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
-
4
VB6でPNGファイルを扱うには?
Visual Basic(VBA)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
【エクセルのマクロ】クリップボードのbitmapをフォームに表示させたい
Visual Basic(VBA)
-
7
ピクチャボックスに描画した画像の保存
Visual Basic(VBA)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
リストボックスの特定行の背景色
Visual Basic(VBA)
-
11
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PictureBoxでのアニメーション...
-
VBによる回帰直線のプログラム
-
他のフォームから別のフォーム...
-
ClickとChangeイベントの違いは...
-
C言語のサフィックスについて
-
【VB.NET】テキストボックスに...
-
プログラムの素朴な質問です 分...
-
sublimit textっていうエディタ...
-
演奏記号の・・・・
-
Functionの戻り値を配列にした...
-
アクセスできない保護レベルエ...
-
VB.NETでのイベントの途中終了
-
visual basic初心者です。 visu...
-
Vba 電卓のテキストボックスに...
-
VBA public変数はどのようなこ...
-
文字列を日付型情報として計算...
-
パーソナルXLSBのfuctionを呼び...
-
プロシージャを呼び出したプロ...
-
三項でたとえば交換って
-
VBでの入力値制限について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SavePictureで保存できない
-
文字間の幅の設定
-
Matlabでsin波を使って矩形波を...
-
ボールが壁に当たって跳ね返る...
-
FlexGridで文字色を変更。
-
[ASP]小数点第2位以下をカット!
-
C言語のOpenGLで複数のテクスチ...
-
VB6 ドラッグ&ドロップ
-
ピッ、ってアルファベットでど...
-
もぐらたたきのプログラミング
-
PictureBoxでのアニメーション...
-
グラフィックの表示について VB6
-
(VB)ピクチャボックスに表示し...
-
ホンテットマンションに乗った...
-
SCALEの使い方教えてください
-
VB6でマウスのドラッグで範囲を...
-
一次元静電粒子コードについて...
-
日付の計算
-
画像処理
-
sublimit textっていうエディタ...
おすすめ情報