1.imageボックスを用いた場合、pictureプロパティで画像を参照した後Stretch=Trueにするとそのimageの大きさに合わせて画像を縮小して表示してくれます。

  pictureボックスのときはその大きさに合わせて画像を縮小して表示できません。AutoSize=tureにしても画像の大きさにpictureボックスが大きくなってしまうだけです。
pictureボックスにはそのような縮小機能はないのでしょうか?

指定する画像を縮小して保存し直すしかないのでしょうか?
そうすると表示したい大きさに合わせるのが大変で・・・。


2.ひとつのフォーム上に与えられた変数によって
画像を表示したいと考えています。

私たちが習ったのは
1. まずpictureボックスを1つ用意する。
2. 表示したい枚数だけimageボックスを準備しその中に画像をpictureプロパティで指定する。(画像5枚につきimageボックス5つ)
3. textボックスに数字をいれcommandボタンをおす。
4. その値によって
picture1.piture=image1.picture
という具合で表示させる。

こうなると表示したい画像が10枚あればimageボックスが
10個必要になりますよね。
そうなるとフォーム上がごちゃごちゃなってしまいます。

そうしないように画像をアドレスを指定して直接いれることはできませんか?
image1.picture="gazou1.bmp"(エラーでした・・・。)みたいな感じで・・・。
そうするとimageボックスを1つしか作らなくてよいのですっきりするのですが。

以上2つよろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

1.画像の拡大縮小について



あらかじめ用意すること

Form1.ScaleMode = 3'ピクセル

Pictrue1.AutoRedraw = True
Pictrue1.AutoSize = Flase
Pictrue1.Visible = True
Pictrue1.ScaleMode = 3'ピクセル

Pictrue2.AutoSize = True
Pictrue2.Visible = Flase
Pictrue1.ScaleMode = 3'ピクセル

と設定しておく

Picture2に画像を読み込んでおく

サイズが変更されるたびに以下の処理を行う
  With Me
    Picture1.Cls
    Call Picture1.PaintPicture(.Picture2.Image, 0, 0, .Picture1.ScaleWidth, .Picture1.ScaleHeight, 0, 0, .Picture2.ScaleWidth, .Picture2.ScaleHeight, vbSrcCopy)
  End With
End Sub


2.画像インデックスについて、
1つのピクチャボックスに複数個の画像を読み込ませるという手もあります。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=167464
ここでやってることは
一.1つのピクチャボックス(Pic1)の中に、さらにピクチャボックス(Pic2)を作成
二.Pic2には複数個の画像を縦に並べて描画
三.Pic1は画像1つ分の大きさにする。
四.Pic2のTOP位置の調整により、複数個の画像が回転するように見える。
です。
微妙なTOP位置の調整により回転には見えますが、数値で正確にTOP位置を指定を行うと、画像の切り替えのように見せることもできます。



別方法としてリソースを使用する方法があるのですが、初耳ですよね?
もし初耳であれば、説明するのに手間がかかりそうなので、これは勘弁してください。
    • good
    • 0
この回答へのお礼

pictureボックスを二つ使うとは考えもしませんでした。
いろいろなやり方があるものなんですね。
勉強になりました。

ありがとうございました。

お礼日時:2001/11/22 01:11

こんにちは。

maruru01です。
1.について
Pictureコントロールは基本的には、拡大/縮小は出来ません。でも、表示させるだけなら、Imageコントロールでいいのではないでしょうか?

2.について
画像の読み込みは、LoadPicture関数を使わなければいけません。
例)
image1.Picture = LoadPicture(読み込む画像ファイルのフルパス)

また、選択対象の画像をサムネイル(縮小版)表示させ、そこから選択するのであれば、イメージリストというコントロールがあります。これは、イメージでリスト表示するコントロールです。もちろん、普通のリストボックスのようにクリックで選択して、その画像(のフルパス)を取得することも出来ます。
イメージリストは、標準のコントロールではないので、メニューの[プロジェクト]→[コンポーネント]で、"Microsoft Windows Common Controls 6.0"にチェックを入れて[OK]して下さい。するとコントロールのツールバーにいくつか追加されます。この中にイメージリストがあります。
利用方法は本などを参照して下さい。一応、私が使っている本を紹介しておきます。
では。

  「新Visual Basic入門」(シニア編)
      著:林晴比古    出版:SOFTBANK    2,520円
    • good
    • 0
この回答へのお礼

ありがとうございました。

loadpictureばっちりでした。

おかげで先に進めました。

お礼日時:2001/11/22 01:08

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qリストのピアノ曲で…

リストのピアノ曲の中で比較的難易度の低いものを教えて下さい。
過去に弾いたことがあるのは、愛の夢・ため息のみです。
手は大きくなく、何とか9度届くくらいです。
宜しくお願いします。

Aベストアンサー

比較的難易度の低いものといっても、<ため息>を弾かれたなら、「忘れられたワルツ」や、あるいは、「巡礼の年」をぱらぱらとご覧になってみて、譜読みしたい(できそうな)ものを選ばれるというのはどうでしょうか?以下は、私自身が過去に譜読みしたもので、それほど無体でなかった(爆)と思うものです。
お役に立てば良いのですが。

参考までに、無料のオンライン楽譜サイトURL添付しておきますね。
(信頼おけるところなので、クリックしても大丈夫です(笑))

忘れられたワルツ(1番は比較的聞かれる機会もあるかと)
<http://imslp.org/wiki/Valses_Oubli%C3%A9es,_S.215_%28Liszt,_Franz%29>
巡礼の年(第1年:4番は美しい曲です)
<http://imslp.org/wiki/Ann%C3%A9es_de_P%C3%A8lerinage:_1%C3%A8re_Ann%C3%A9e:_Suisse,_S.160_%28Liszt,_Franz%29>
巡礼の年(第2年イタリア:「ダンテを読んで」は難しいですけど、1番、3番、あるいはペトラルカのソネット104番などは練習すれば何とか…と思わせるものがあります)
<http://imslp.org/wiki/Ann%C3%A9es_de_P%C3%A8lerinage:_2%C3%A8me_Ann%C3%A9e:_Italie,_S.161_%28Liszt,_Franz%29>

比較的難易度の低いものといっても、<ため息>を弾かれたなら、「忘れられたワルツ」や、あるいは、「巡礼の年」をぱらぱらとご覧になってみて、譜読みしたい(できそうな)ものを選ばれるというのはどうでしょうか?以下は、私自身が過去に譜読みしたもので、それほど無体でなかった(爆)と思うものです。
お役に立てば良いのですが。

参考までに、無料のオンライン楽譜サイトURL添付しておきますね。
(信頼おけるところなので、クリックしても大丈夫です(笑))

忘れられたワルツ(1番は比較的聞か...続きを読む

Qpicture boxの画像をimageに上下反転して表示したい

お世話になります。mmc820です。

表題の通りですが、ピクチャーボックス(作業用で実際は表示されません)に描画した画像をイメージに上下反転した状態で表示させたいと思います。

ピクチャーボックスに上下反転して表示する方法は見つけたのですが、イメージに表示させる方法が見つからず困っております。

イメージへの反転表示は可能なのでしょうか?
皆様、良い方法がありましたらどうか御教示下さい。
もし不可能であれば「不可能です。」という旨のお答えでも結構ですので、ご意見お聞かせください。

当方の開発環境はWindows2000、VB6.0です。
また、説明に不足がありましたら補足いたします。
どうか宜しくお願いします。

Aベストアンサー

いったんピクチャーボックスへ上下反転させてから
image1.picture = picture1.image

でPicture1の内容をimage1へというのではだめですか?

Q情報少ないですが、是非リストのピアノ曲のタイトルを教えてください。

昔外国で聞いたコンサートで、リストのピアノ独奏曲があったのですが
タイトルが思い出せません。
ピアニスト本人が英語で”パ行の発音を発していたような。。
曲は長調、最初左手のみ?でレミ(それから下に下がって)ソラレ?といったような主題が流れます。最後の方にも同じものが再現部に現れ、終盤はドビッシーのアラベスクのようなアルペジオが流れます。曲はアンコールで弾かれたので長くなく5分程度、全体的に大変美しい曲ですが、珍しいものではないかと思います。

間違いない情報としましては。。
フランツ リストであること
愛の夢やため息、コンソレーション3番、軽やかさといった、有名な曲ではない事
(二つの伝説や、メフィストワルツ、マゼッパでもありませんでした)
図書館とCDショップであたってみるつもりですが、曲を探そうにもタイトルが分かりません。。
リストにお詳しい方など、是非教えてください。

Aベストアンサー

自信は無いですが、巡礼の年 (Annees de Pelerinage)、第二年、イタリア、から第一曲目の「婚礼」(Sposalizio)ではないかなとふと思いました。聴いてみてくださいな。

このCDの一曲目。視聴できます。
http://www.amazon.com/Liszt-Piano-Works-Annees-Pelerinage/dp/B00000E2MO/ref=sr_1_3/102-6333279-0771332?ie=UTF8&s=music&qid=1177292401&sr=8-3

またはこのCDの二曲目。
http://www.amazon.com/Liszt-Paralipom%C3%A8nes-Franz/dp/B00000AE0E/ref=sr_1_5/102-6333279-0771332?ie=UTF8&s=music&qid=1177292627&sr=1-5

Qピクチャーボックスの大きさに合わせて画像を表示

縦に長い画像をピクチャーボックスに表示したいのですが、
エクスプローラーの縮小表示と同じように
縦長の場合は左右に余白が出来て、画像の縦横比は
変更しないですべてを表示したいのですが、
どのようにしたら良いでしょうか。
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
を使うと全部入るのですが、左右に余白がないように
引き伸ばしてしまうので、何の画像なのか分かりにくくなってしまいます。
よろしくおねがいします。m(__)m

Aベストアンサー

今表示しようとしているImage のHeight と Width を調べて
高さが大きければPictureBox の幅を(縦横比に合わせて)変更し
幅が大きければPictureBox の高さを(縦横比に合わせて)変更する
そしてPictureBox 自体の位置をサイズの変更に合わせてセンタリングする位置に移動するようにすれば、StrechImage のままでいいと思う

Qショパンとリストの合作であるピアノ曲はあるのでしょうか

ピアノの楽譜を見ていて(確か全音の楽譜だったと思います)、作曲家がショパン=リストとなっている曲が1曲あったように記憶しています。
その曲名は思い出せないのですが、その曲は偉大な作曲家であるフレデリック・ショパンとフランツ・リストの両名による合作なのでしょうか。まあ同世代の人間ですし交流もあったようですから合作の曲があってもおかしくないと思いますが。

そして合作だとしたら、その曲が生まれた経緯はわかりますでしょうか。20年ほど前に桑田佳祐とMr.Childrenによる合作の「奇跡の地球」という歌がありましたが、そのようなコラボレーションプロジェクトだったのではないかと思うのですが、どうでしょう。

Aベストアンサー

今は洋楽では大人数の共作、共演、featureといったことが当たり前に多くなされています(そういう手段の普及度は日本とは比較にならないです)が、西洋クラシックの時代に人気作曲家が合作といったことは割と少ないと思いますよ。
まず自分の知る限りでは、この頃の作曲家は非常に作家性や自我の強い人達であり、今のロックバンドなんかと異なりピアノに向かって黙々と1人で創作することに慣れていて、共同で1つの作品を創作するなんてとても出来そうにないことと、宗教音楽の時代と異なり著作物の権利問題に既に厳しくなっていて、「共作」という権利問題の扱いがまだまだ成熟していなかったこと、等が挙げられると思います。実際、作家の間で使用許可を得たとか得ないとかパクっただとかの訴訟問題は当時からよく起こっていたようです。

ただ、作曲(ピアノ版や、ピアノ譜のスケッチ等)は1人の人が担い、後々編曲版を別の人が作るといったことは多かったようです。
実際、ドビュッシーは無名のサティを世に出す手助けをする為にジムノペディを管弦楽アレンジしていますし、ラヴェルはドビュッシーの管弦楽曲のピアノ版、もしくはピアノ曲の管弦楽版を編曲したりしています。言うまでもなくこれらは同時代を生きた作曲家達です。
上のように、既にある有名曲を後々別の有名作家が編曲するということは多いですが、人気作家で忙しかったドビュッシーは、管弦楽曲のスケッチを自ら作曲して、友人であり作曲家であったにカプレにおおまかな指示だけしてオーケストレーションを任せる等のことも度々しています。これは共作とは言えるかもしれませんが、どちらかというと「分業」もしくはカプレは「アシスタント」ですし、「作曲家」は完全にドビュッシーとなりますよね。

ということで、「ショパン=リスト」となっていたら、自分ならなんとなく「リストが後々編曲したのかな」と思います。詳しいことは知らないので憶測でそう思うってだけですけどね。参考までに。

今は洋楽では大人数の共作、共演、featureといったことが当たり前に多くなされています(そういう手段の普及度は日本とは比較にならないです)が、西洋クラシックの時代に人気作曲家が合作といったことは割と少ないと思いますよ。
まず自分の知る限りでは、この頃の作曲家は非常に作家性や自我の強い人達であり、今のロックバンドなんかと異なりピアノに向かって黙々と1人で創作することに慣れていて、共同で1つの作品を創作するなんてとても出来そうにないことと、宗教音楽の時代と異なり著作物の権利問題に既...続きを読む

QPicture1.Printとしてもpicture1には何も表示されません

Private Sub Form_Load()
Call kansu
End sub
---------------------------
Private Sub kansu()
a="文字"
Picture1.Print a
End sub
---------------------------

のように、pictureコントロールに
文字を入れる処理をする関数を呼んでいるのですが、
Formが表示されてもpicture1には何も表示されません。
Msgboxを入れておくとメッセージボックスが出るので
呼び出されてはいるようなのです。

この関数をCommand1_Click()などから呼ぶとpicture1コントロールに
ちゃんと表示されます。
どうすればよいのでしょうか?

Aベストアンサー

Private Sub kansu()
  Dim a  As String
  Picture1.AutoRedraw = True
  a = "文字"
  Picture1.Print a
End Sub

Qショパン,リスト,ラフマニノフのピアノ曲オススメ

こんにちは。

ピアノに関してはまったくのど素人のクラシック音楽愛好家です。
ベタな質問で恐縮ですが,作曲家自身が名ピアニストでもあった三名様(ショパン,リスト,ラフマニノフ)のピアノ独奏曲または四手のための作品のオススメをご教示いただけましたら幸いです。

【お願い事項】
 ・作曲家お一人様それぞれ数作品程度をめどに
  (傑作がたくさんあって絞るのは大変かと思いますが)
 ・三名のうちのどなたかだけ,もちろん一曲だけのオススメでもOK
 ・聴きやすい,親しみやすい曲想でなくてもOK
 ・曲の長短は不問
 ・一般的な世評をご教示いただいてもいいですし,個人的好みでもOK
 ・お気に入りのCDアルバムでご紹介いただいてもOK
 ・私の好みは無視していただいてOK(えっ,そんなの知ったこっちゃない?^^;)

なお,これらは勝手なお願いですので,作品数の縛りも含め,ご自由にご回答いただいてももちろん結構です。


では,よろしくお願いいたします♪

Aベストアンサー

意外なご質問ですね。
私の好みは無視していただいてOK…とのことですので,
マニアックなものではなく,オーソドックスなもので考えてみました。

リスト
http://www.hmv.co.jp/product/detail.asp?sku=237633

迷った結果(迷うほど多くは知らないのですが),ひとつに絞るならこれにしました。
ユーザーレビュー 2007年10月04日の方のコメント通り,
Un sospiro「ため息」と,La leggerezza「軽やかさ」の印刷ミスがあります。
「12の超絶技巧練習曲」や,ラ・カンパネラでお馴染みの「パガニーニによる大練習曲」,
よく聴く機会があるので演奏される頻度が高いのではと思う「森のざわめき」など,
有名なものは満載の2枚組です。お勧めの低価格盤です。
ハンガリー狂詩曲はオーケストラでご存知のものがあるでしょうし,
こちらの方がいいのではと思いました。
「巡礼の年」は大人の香りがする通好みで,質問者様にぴったりかもしれないと迷いましたが,
それは後のお楽しみにということで,まずは上記のもの絞りました。


ラフマニノフ
http://www.hmv.co.jp/product/detail/853252

安いものばかり上手に買っています。
幻想小品集 作品3-1『エレジー』は私のお気に入りです。
もう少し演奏のテンポが速いといいのですが。(私好みでは)
楽興の時 4番 ホ短調 作品16-4はショパンの「革命」からの影響かな?…と思います。
演奏は別のCDでも,『エレジー』が入っているものがお勧めです。
lib08に試聴があります。
http://piano1001.com/lib_0_frame.htm


ショパン
一番迷ったので最後になりました。
ノクターン,バラード,スケルツォ,ソナタ,ワルツ……,どれもいい!,どうしましょう。
迷いに迷って,やっぱり,ノクターン!
お気に入りの演奏があったのですが残念ながら廃盤になっていました。
http://www.hmv.co.jp/product/detail/742515

悪口は禁句かもしれませんが,ポリーニとワイセンベルクにはがっかりしました。
全曲は聴いていませんが,キーシンの演奏にはグッときました。
でも,これも残念ながらノクターン全曲のCDがなさそうです。
というわけで,演奏者のお勧めは分かりませんが,遺作を含む21番まで入っているものを
お選びください。映画「戦場のピアニスト」で使われた20番 嬰ハ短調 遺作は特に好きです。
下記,動画の試聴でどうぞ。ノクターン第20番 「遺作」(ルイ・レーリンク)
http://www.piano.or.jp/enc/dictionary/composer/chopin/000448.html

意外なご質問ですね。
私の好みは無視していただいてOK…とのことですので,
マニアックなものではなく,オーソドックスなもので考えてみました。

リスト
http://www.hmv.co.jp/product/detail.asp?sku=237633

迷った結果(迷うほど多くは知らないのですが),ひとつに絞るならこれにしました。
ユーザーレビュー 2007年10月04日の方のコメント通り,
Un sospiro「ため息」と,La leggerezza「軽やかさ」の印刷ミスがあります。
「12の超絶技巧練習曲」や,ラ・カンパネラでお馴染みの「パガニーニに...続きを読む

QCommand Buttanの大きさをPictureと同じ大きさにしたい

CommandButtanのPictureの設定を[32×32]ピクセルのjpgに設定しました。画像は表示されるのですが、ボタンの大きさが、画像より大きくなってしまいます。
画像がピッタリと収まるように、ボタンの大きさを変更できないのでしょうか?

ご教授お願いします。

Aベストアンサー

一言でいえば出来ません。
それをやる為には、InputManなどのサードパーティのボタンコントロールを使うしかありません。


ありませんがー。一つだけ裏技があります。

ボタンの画像が表示されていない部分の上にフレーム(見た目はフラットにしておく)などをのせて、あたかもここから先はボタンじゃないよ。とみせる方法です。

お役にたてれば

Qショパン・リストでオススメのピアノ曲のCDを教えて下さい

ショパンやリストの、エチュード系のCDを探しています。

『エチュード全集』や『ハンガリー狂詩曲全集』など、出来たら選曲集ではなく、全集が好ましいです。

演奏家については、殆ど無知ですので、有名な方を教えていただければと思います。



どうぞ宜しくお願い致します。

Aベストアンサー

◇ショパンの練習曲はポリーニをお勧めします。
http://www.hmv.co.jp/product/detail/851768

ポリーニは好みに合わなくて何度もがっかりさせられましたが,
この1枚は別でした。目が覚めるような鮮やかな演奏です。
一番,お勧めしたいのはホロヴィッツですが,
残念ながら,練習曲集,ワルツ集のように,まとまった形では
C Dが出ていません。演奏は素晴らしいです。
http://www.hmv.co.jp/Product/detail.asp?sku=1818508

◇リスト ハンガリー狂詩曲全集
 ピサロ
http://www.hmv.co.jp/product/detail.asp?sku=1460034

使用楽器がブリュートナーということで珍しい録音かと思います。
楽器の特性が表れていると思いますが,豊かな響きの好録音です。
演奏は都会的というか,この曲集でよく聴く「こてこて」した感じがなく,
品の良いハンガリー狂詩曲です。

ブリュートナーの説明
http://d.hatena.ne.jp/keyword/%A5%D6%A5%EA%A5%E5%A1%BC%A5%C8%A5%CA%A1%BC


◇リスト 練習曲集
 リスト弾きの饗宴ということで複数のピアニストです。
http://www.hmv.co.jp/product/detail.asp?sku=237633

ガンガンと力が入った演奏は何度も繰り返し聴いていると疲れを感じ,飽きてきますが,
この曲集は,全体に力んだ演奏はなく,良いと思います。
この値で,この内容はお買い得かと思います。

>演奏家については、殆ど無知ですので、有名な方を教えていただければと思います。
商業ベースに乗るのが下手で,あまり名は売れていないけれど,
たいへん優れたピアニストもいますので,「有名な方」は
あまり気にしなくていいと思います。
一部の音楽評論家の意見で,「ショパン弾き」とか「リスト弾き」と
レッテルが貼られますが,それも一種の商業ベースによるものです。

◇ショパンの練習曲はポリーニをお勧めします。
http://www.hmv.co.jp/product/detail/851768

ポリーニは好みに合わなくて何度もがっかりさせられましたが,
この1枚は別でした。目が覚めるような鮮やかな演奏です。
一番,お勧めしたいのはホロヴィッツですが,
残念ながら,練習曲集,ワルツ集のように,まとまった形では
C Dが出ていません。演奏は素晴らしいです。
http://www.hmv.co.jp/Product/detail.asp?sku=1818508

◇リスト ハンガリー狂詩曲全集
 ピサロ
http://www.hmv.co.jp/produc...続きを読む

Q"picture.jpg" の "picture" を取りだすには

お世話になります。

"picture.jpg" のような文字列から 拡張子を省いた値を
取りだすにはどうすれば良いのでしょうか?

Java でいう str.lastIndexOf(".") や substr()
のような関数はあるのでしょうか?


msdn 関数
http://msdn.microsoft.com/ja-jp/library/32s6akha.aspx

Aベストアンサー

こんにちは。

  picture.jpg

の picture の部分をベース名と呼びます。これと開発環境をキーワード
に WEB 検索すると参考記事が見つかりますよ。

.NET 環境なら、GetFileNameWithoutExtension メソッドです。

  System.IO.Path.GetFileNameWithoutExtension("picture.jpg")

VB/VBA 環境なら FileSystemObject の GetBaseName を利用するとか。

  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  MsgBox fso.GetBaseName("picture.jpg")

余談ですが、ベース名と拡張子の切り分けは次の点にご注意を。

1. 拡張子は 3 文字とは限らない
  例)Sample.jpeg、index.html
  --> Left などで3文字前まで、、と単純に切り分けると失敗する
    場合があります。最近では、Office2007 の拡張子が 4 文字に
    なりましたね。また、拡張子が無いファイルもあります。
2. ファイル名に複数のピリオドが有り得る
  例)2008.6.29.xls
  --> 拡張子のピリオド位置をファイル名の前から探すと失敗する
    場合がある。

InStrRev などでファイル名の後ろからピリオドを探すとか、拡張子の
ピリオドが無い場合の処理を追加すれば良いだけですが。

ご参考までに。

こんにちは。

  picture.jpg

の picture の部分をベース名と呼びます。これと開発環境をキーワード
に WEB 検索すると参考記事が見つかりますよ。

.NET 環境なら、GetFileNameWithoutExtension メソッドです。

  System.IO.Path.GetFileNameWithoutExtension("picture.jpg")

VB/VBA 環境なら FileSystemObject の GetBaseName を利用するとか。

  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  MsgBox fso.GetBaseName("picture.jpg")

余談です...続きを読む


人気Q&Aランキング

おすすめ情報