No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。No.1の方と言いたいことは同じですが、
現在のパスが変更される可能性を考慮して、CurDirではなく、
App.Path
でExeファイルのパスを取得した方がいいと思います。
一応、末尾の「\」の有無を考慮して、以下のようにします。
Dim tempPath As String 'ファイルのパス
tempPath = App.Path
If Right(tempPath, 1) <> "\" Then
tempPath = tempPath & "\"
End If
Image1.Picture = LoadPicture(tempPath & "テストプログラム\ime1.jpg")
この回答への補足
ありがとうございます!
え・・と初心者でcurdirとapp.pathはどこが
違うのかわかんないです?すみません。T_T?
>現在のパスが変更される可能性を考慮して、CurDirではなく、
とありますので、何かが大きく違うんでしょうけど
教えて頂けますでしょうかm__m;;;
出来ました!
ただ、
Image1.Picture = LoadPicture(app.path & "\ime1.jpg")
と試しにやってみたのですが、これで
VB練習\テストプログラム&"\ime1.jpgまで見れたのですがダメなのでしょうか???
No.6
- 回答日時:
>Image1.Picture = LoadPicture(app.path & "\ime1.jpg")
>と試しにやってみたのですが、これで
>VB練習\テストプログラム&"\ime1.jpgまで見れたのですがダメなのでしょうか???
Exeファイルがある場所が、ドライブ直下の場合、App.Pathは、
「C:\」
と、末尾に"\"が付いてしまいます。
したがって、この場合には、
App.Path & \ime1.jpg
は、
「C:\\ime1.jpg」
となり、エラーになってしまいます。
このような、考えられるエラーは、可能性が極小でも回避措置を取っておくべきです。
>それを書かずにaの中のbのみを書き換える事は可能でしょうか?
基本的には無理です。
変数aには、
「こんにちは初心者です。」
の「初心者」の部分が、変数bによって代入されたという情報は保持されないからです。
さらに、代入のコードを書かない限り、内容を変更することは出来ません。
似たような方法としては、前後に
「こんにちは」「です。」
を付ける操作を1つのFunctionプロシージャにしておくというものでしょうか。
つまり、
Private Function Test(s As String) As String
Test = "こんにちは" & s & "です。"
End Function
というプロシージャを作成しておいて、コマンドボタン1のクリックイベントで、
b = "テスト成功"
a = Test(b)
とします。
もちろん、Form_Loadイベントの方も、
b = "初心者"
a = Test(b)
とします。
いずれにせよ、変数aに代入しない限り内容は変更出来ませんが。
No.5
- 回答日時:
こんにちわ---->こんにち「は」
という突っ込みは置いといてっと。
CurDirとApp.pathの説明は別な方にゆずるとして・・・
(うまい説明思いついたら自分が。)
>もう一ついいですか?
本当は改めて質問立てて欲しいけどどうぞ。
「直接は」出来ない気がする
'---------ここから----------
Private a as String
Sub ppp(a1 as String)
a = "こんにちは" & a1 & "です"
End Sub
Private Sub Form_Load()
call ppp("初心者")
End Sub
Private Sub Command1_Click()
call ppp("テスト成功です")
End Sub
Private Sub Command2_Click()
call ppp("VBマスターa12b12")
End Sub
'-----------ここまで------
No.4
- 回答日時:
この回答への補足
どもです!^^これから見てみます!
もう一ついいですか?
他の掲示板で聞いたのですが出来ないと言われましたT_T; なんか方法がないでしょうか?
-----------------------------------------------
Private Sub Form_Load()
b = "初心者"
a = "こんにちわ" & b & "です。"
End Sub
※これで「こんにちわ初心者です。」となります。
●次にコマンドボタン1を押すとbの値が変わります。
Private Sub Command1_Click()
b = "テスト成功"
End Sub
このcommand1に a = "こんにちわ" & b & "です。"
と記載すれば「こんにちわテスト成功です。」となりますが
それを書かずにaの中のbのみを書き換える事は可能でしょうか?
No.3
- 回答日時:
>himajin2003さんはVB歴どれほどなんでしょう^^;
短いです。人に言えるほどの力はありません。
#以前、保存関係のものを回答した覚えがありますが、
何で「保存する処理を別のプロシージャにして」
Callで呼ばなかったんだろう・・・
>現在のパスが変更される可能性を考慮して、
>CurDirではなく、
ええ、実はめちゃくちゃ不安でした(^^;;:
コマンドプロンプトのcd見たいなコメント
知らないけどあるんじゃないかって。
maruru01さんのApp.pathを使う手の方が適切。
環境変数とかの利用も考えていました
学習されては>a12b12様。
セットアッププログラムでレジストリ残したり
する方法知らないです(^^;;;;
出来ました!
ただ、
Image1.Picture = LoadPicture(app.path & "\ime1.jpg")
と試しにやってみたのですが、これで
VB練習\テストプログラム&"\ime1.jpgまで見れたのですがダメなのでしょうか???
No.1
- 回答日時:
>イメージコントロールについてVB6
ん~、
今回の内容は
もちろん、ime1.jpgは同梱したよね?
実はイメージコントロールの話じゃないんだよね(汗)
貴方は***.exeを含めたフォルダを"C:\VB練習\テストプログラム"に作るかもしれないけど
他の人は"C:\Program Files\VB練習\テストプログラム"にインストールするかもしれない
そうなると画像は
"C:\Program Files\VB練習\テストプログラム\ime1.jpg"
にあるのであって、そのコードを実行したときに「ファイルがない」
って言われるのは明らかだ。
そこで提案。
CurDir関数を利用するとかはどうだろう??
Image1.Picture = LoadPicture(CurDir & "テストプログラム\ime1.jpg")
とかにするの。
CurDir関数はexeファイルの入っているフォルダをString型で返す。
だからexeが"C:\VB練習"にあれば
"C:\VB練習\テストプログラム&"\ime1.jpg"
"D:\VB練習\テストプログラム"にあれば
"D:\VB練習\テストプログラム" & "\ime1.jpg"
と柔軟に対応できる。
いつも本当にありがとうございます。
顧問先生になってほしいくらいです。
他の方に回答しているのも見ましたが
himajin2003さんVB分かりすぎ^^;(うらやましいです。
himajin2003さんはVB歴どれほどなんでしょう^^;
すばらしい・・・
まずやってみますね^^//
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBS:コンピュータ名を取得し、...
-
現在プログラミングの研修中な...
-
API、OCX、DLLって何でしょう?
-
ロシア語辞書検索ツールを作りたい
-
プログラミング 素数か素数では...
-
変数の大きさを超える代入
-
汎用的・将来的なプログラムに...
-
ファイアウォール(zone ...
-
作曲のアプリを作りたいのですが
-
<python> main():関数
-
クラスについて教えてください。
-
最適化に必要な、プログラム構...
-
DLLってなに?
-
PHPとHTMLの違い(運営・管理?)
-
PHP+MySQLで家計簿を作りたい
-
バージョンのつけ方
-
プログラマーという御仕事(質...
-
Cプログラムの解析(関数の呼び...
-
AIなんて所詮人間のプログラ...
-
VBプログラムをEXCEL VBAに移植...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
API、OCX、DLLって何でしょう?
-
VBプログラムをEXCEL VBAに移植...
-
SNMPトラップ情報をC#.netで作...
-
C言語のHP-UXからLinuxへのポ...
-
Ryzen 3700(無印)はWin11に対応...
-
VBS:コンピュータ名を取得し、...
-
VB.net エラーメッセージを英文...
-
PHP+MySQLで家計簿を作りたい
-
変数の大きさを超える代入
-
プログラムとは理系ですか文系...
-
OSとCPUの関係について
-
コンソールアプリでファイル選...
-
プログラマーという御仕事(質...
-
Timerイベントについて
-
EXCEL-VBAのプログラムを移植し...
-
Perl5とActivePerl
-
MS-DOSで作ったBASICプログラム...
-
VC++で単機能ブラウザを作...
-
掲示板の作り方を教えてください
-
小中学校でプログラミングなん...
おすすめ情報