ab.com コミュニティ

デスクトップマスコット作りに挑戦しているのですが、
わからないことが幾つかあるので教えてください。

現状→http://mhgs.dip.jp/soft/p.PNG

1.ラベルに文字列入れてそのまま表示している
*ファイルから文字列を読み込んで表情変え＆発言させることができない
　↓ファイルの中身↓
　01,Angry
　02,Enjoy
　03,Sad
　表情,発言内容

2.閉じることはできるがまたウインドウを出すことができない
*ヘルプを見てもわからなかったので。非表示はできたんですが｡｡｡(´･ω･｀)

お願いします。

閉じるボタンを押した後、何所をどうすればまた表示できるのかをちゃんと考えて設計していますか?たとえば、Ctrl+Shift+Vで再表示できるようにメインループ内で工夫するとか。

もっとも、人工知能（？）作りは難しいものです。人間の入力した文字列を読み込んで、特定の文字列があるかどうかを調べて、それに対応した動作を継続させる・・・
特定の文字列内に指定文字列が含まれているかどうかを調べる関数なら
InStr関数（ヘルプファイルに記載）を参照。

”デスクトップマスコット”作り、頑張ってください。

返信ありがとうございます。
そうですね。最初に作ろうと思ったのが間違いだったのかもしれません。
でも作るからには最後までやりますよヽ( ´ー`)ノ

>閉じるボタンを押した後、何所をどうすればまた表示できるのかをty（ry
　していますがソースがおかしいのか命令が違うのか表示してくれないんです。

ソースをここに載せる事はできますか?
載せたくないなら構いまんが、対応するのが遅れる可能性があります。

プロジェクトを圧縮してみたので助けてくれる方のみどぞ。
改変使用は無しで。

ファイルをそのまま持ち逃げする人が多くいたので
リンクはずしました。助けてくれる人プライベートメッセージください。

えー、あちこち未知の領域があって僕にはﾑﾘです、はい。
イグトランスさん、よかったらこの板に参加してください。

未知の領域ですか。。。
誰か助けてください｡･ﾟ･(ﾉД`)･ﾟ･｡

＃呼ばれてと言うわけではありませんが。
ファイルからの読み込みは面倒なので、
そのうちファイルからの読み込みをするコードを書くということにして、
たとえばこのようにとりあえずソースコードに直接書いておくことにしたらどうでしょうか。
Dim Expression[ELM(3)] = ["Angry", "Enjoy", "Sad"] As String

> 2.閉じることはできるがまたウインドウを出すことができない
閉じると言うのはShowWindow(hMessage, SW_HIDE)のことですよね。
それなら2番目の引数をSW_HIDEからSW_SHOWへ変えれば良いと思います。

ところでChara_Character_ClickはCharacterのプロパティの通知にチェックを入れないと呼ばれないですよ。
ヘルプには書いてありませんが気をつける必要があります。

イグトランスさんが言ったとおりに通知にチェックして、
キャラをクリックしたらメニューが出てきてくれました！
ありがとうございます！

これの使い方がわからないのですが(;´A｀)
教えていただけないでしょうか。

> Dim Expression[ELM(3)] = ["Angry", "Enjoy", "Sad"] As String
これは以下と同等だと思ってください。

Dim Expression[2] As String
Expression[0] = "Angry"
Expression[1] = "Enjoy"
Expression[2] = "Sad"

そのうち余裕が出来たらExpressionの要素数を大きくし、
ファイルからExpressionへ読み込むように改良することにすれば、
暫くはファイルからの読み込みをどうするかということを考えずに済みます。

つまり余計な部分を後回しにして先に主立った部分の作業に集中できます。（私がよくやる手です）

SetWindowTextまではわかったのですが
そのEspression(?)の読み込み方がわかりません。

Dim Expression[ELM(3)] = ["Angry", "Enjoy", "Sad"] As String

Sub Menu_SPEAKBTM_Click()
SetWindowText(GetDlgItem(hMessage,MesBox),Expression)
ShowWindow(hMenu,SW_HIDE)
ShowWindow(hMessage,SW_SHOW)
End Sub

出力結果
､S

SPEAKBTM=話すボタンを押したとき
MesBox=スタティックテキスト

N番目の表情に対応する発言はExpression[N]と書けば得られます。
たとえばSetDlgItemText(hMessage, MesBox, Expression[0])とすればAngryと表示されるはずです。
（SetDlgItemTextはSetWindowText(GetDlgItem(とするのと同じです。）

> N番目の表情に対応する発言はExpression[N]と書けば得られます。
乱数を利用してランダムにメッセージを表示しようといろいろがんばっているのですがうまくできません。（泣

Dim RnS As Long
Dim RnMsg As String
RnS=Int(Rnd()*3+1)
RnMsg="Expression[" + RnS + "]"
SetDlgItemText(hMessage, MesBox, RnMsg)

出力結果
ression[]

できないってことは違ってるんですよね。。。(´･ω･｀)
「Expression[]」を出そうとしてますし

ではこれでできると思います。
SetDlgItemText(hMessage, MesBox, Expression[RnS])