(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

>>466
だからformatは文字列を返すんだって。
dim sumStr as string
sumStr = Format(sum, "0.00E+00")
とかすればいい。
"0.00E+00"　の0は桁数を表しているので
01とか10とかやっても意味がない。

**デフォルトの名無しさん** · NG

sum = Format$(sum, "#.##E+")
だと思う

D · NG

>>462
>sum = Format(sum, "Scientific")
このsumは両方ともDouble型なのでFormat関数で整形してもほぼ同じ値が入るだけです。
この場合左辺はString型で宣言された変数に代入した方がいいと思われます。
あとSumはSQLとData Reportでの予約語なので変数名に使うのもどうかと。
試しに新規のプロジェクトでDim sum as Doubleの宣言をせずに同じｺｰﾄﾞを
入力すると小文字で入力したはずの"s"が"S"に置換されるはずです。

Dim Total As Double
Dim sTotal As String

Total = 70840747.888806
sTotal = Format$(Total, "0.000000000000E+")
Label2.Caption = sTotal
こんなかんじで。
あ、ヘルプの”プロシージャの引数”でSum関数作ってますね。

**454** · NG

>>467
デキターーーーー！！！
ありがとうございます！ものわかりが悪くてすいませんでした。

**デフォルトの名無しさん** · NG

●●●●●●●●「オセロさえ納期内に作れない＝ＯＯ役立たず」祭り●●●●●●●
／|　　　　　　　 |　 |＿＿＿＿_ΦΦΦΦΦΦΦΦΦΦΦ||ΦΦΦ
　 |　　　　　　　 |　 |￣￣￣／|　　　　　　　　　　　　 ||
　 |　　　　　　　 |　 |　　　／／|TTTTTT　　 TTTTTTTTTT||TTTTT
　 |　　　　／＼　|　／|／|／|^^^^^^ |三三| ^^^^^^^^^^^||^^^^^^^
　 |　　　／　／　|／／／／|
　 |　　　／　／ |＿|／|／|／|／|
　 |　／　／　　|文|／／／／
　 |／　／.　＿.|￣|／|／|／　　　　　　　　　Λ＿Λ
／|＼／　／　／　|／／　　　　　　　　　　（＿＿_）
／|　　／　／　／ヽ　　　　　　　　　　　　/〔非OO 〕〕つ
　 |　　　|￣|　 |　|ヽ／l　　　　　　　　　　　｀/二二ヽ
　 |　　　|　 |／|　|__|／　　　Λ＿Λ　　　　 /　/（＿）
　 |　　　|／|　 |／　　　　　（　´∀｀）　　　（＿）　　　 Λ＿Λ
　 |　　　|　 |／　　　　　／/ /　 ^￣］ﾟ　　　　　　　　（｀　　　）
　 |　　　|／　　　　　　　ﾟ/￣￣_ヽ　　　　　　　　　⊂〔〔非OO 〕

**454** · NG

>>468　>>469
いろいろありがとうございます。助かりました。

D · NG

あ、ぼやっとしてたら答えてたのね。
遅すぎました

**445** · NG

>449
返信遅れてすいません、ありがとうございました。
とりあえず今教えていただいたのを実行中です。

**デフォルトの名無しさん** · NG

>>442
使えますよ。

**442** · NG

>>>475
お、そうですか。
なんか
HH_HELP_CONTEXT called without [MAP] section
って表示されたので。
HTMLヘルプの作り方が悪いんでしょうが・・
HTMLヘルプコンパイラみてもどこで設定するのかわからんです。

**442** · NG

できました。
hファイルを作成するんですね。

NG

ListBOX内の一行一行個別に色を設定する方法を教えてください。

**デフォルトの名無しさん** · NG

全く同レイアウトのテーブルAA,BBのレコードをAA→BBに移す時に
↓以外の書き方ありますか？レコード中の全ての項目を下記の様に
代入するように書かないと駄目なのでしょうか？

With rs_bbb
　　　.AddNew
　　　.Fields("field1").Value = rs_aaa.Fields("field1").Value
　　　.Fields("field2").Value = rs_aaa.Fields("field2").Value
　　　.Fields("field3").Value = rs_aaa.Fields("field3").Value
End With

**デフォルトの名無しさん** · NG

>>479
for i=0 to rs_aaa.fields.count -1
.Fields(i).Value = rs_aaa.Fields(i).Value
next

**479** · NG

>>480
ありがとうございます。
そういうやりかたもありましたか

**デフォルトの名無しさん** · NG

テキストをHTMLのタグ形式に変換したいのですが、
「http」or「ttp」or「www」の文字列を発見すると自動的に<a href～>のように
変換する関数のようなものは、ありませんでしょうか？
どなたか、そういったものを公開している情報知りませんか？
環境はVB6.0　SP5です。

例：
【変換前のテキスト】猫のページhttp://www.neko.com
↓
【変換後のテキスト】猫のページ<a href="http://www.neko.com" target="_blank">http://www.neko.com<;/a>

**デフォルトの名無しさん** · NG

windows media player コントロールを使っているのですが、
alt+enterを押すとfullscreenで見れるのですが、
キーを使わずプログラムからfullscreenにする方法はないでしょうか？
また
windows media player　コントロールのヘルプや解説が見つからないのですが、
どこにあるのでしょうか。

**デフォルトの名無しさん** · NG

ASP.NETでWebUserControlを使用した汎用的なツールを作りたいと思っています。
そこで、Webフォームから同画面上のWebUserControlに対して値をわたしたいのですが
どうしたらいいでしょうか？

**483** · NG

自己解決しました。
ヘルプはないのですが、
オブジェクトブラウザでそれらしきものをみつけたので、いけました。
コンポーネントに以下の文を入れました。

MediaPlayer1.DisplaySize = mpFullScreen

**442** · NG

>>482
自分が使ってる奴。あんまよくないかも。
aStr=元の文字列
nTarget=変換したい元の文字列
nChangeTo=返還後の文字列
nOpt=おぷしょん。
Public Function fReplace(ByVal aStr As String, ByVal nTarget As String, nChangeTo As String, Optional nOpt As Integer) As String
Dim oStr As String
Dim nStr As String
Dim nCurPos As Long
oStr = aStr
If Len(oStr) > 0 And Len(nTarget) > 0 Then
Do
nCurPos = InStr(1, oStr, nTarget)
If nCurPos = 0 Then Exit Do
nCurPos = nCurPos - 1
If Not Mid(oStr, nCurPos + Len(nTarget) + 1, Len(nTarget)) = nTarget Or nOpt = 0 Then
nStr = nStr & Mid(oStr, 1, nCurPos) & nChangeTo
Else '改行文字が重なっていたら、改行文字自信に置き換える（nOpt=1の場合）
nStr = nStr & Mid(oStr, 1, nCurPos + Len(nTarget))
nCurPos = nCurPos + Len(nTarget)
End If
oStr = Right(oStr, Len(oStr) - nCurPos - Len(nTarget))
Loop
nStr = nStr & oStr
End If
fReplace = nStr
End Function

**デフォルトの名無しさん** · NG

VB初心者ですが、どなたか教えて下さい。
プログレスバーを使ってファイルの保存状況を表示したいのですが
Label1.Caption = "保存中"
ProgressBar1.Min = 0
ProgressBar1.Max = List1.ListCount
For LoopCnt = 0 To List1.ListCount - 1
SavData = SavData & List1.List(LoopCnt) & vbNewLine
ProgressBar1.Value = LoopCnt
Next
とするとプログレスバーが100％になってから「保存中」と表示されて
しまいます。処理の優先順位みたいなのがあるのでしょうか？
このような場合、どういう風にするのがよいのでしょうか？
環境はVB6 Win2000 です。よろしくお願いします。

**デフォルトの名無しさん** · NG

>>487
Refresh DoEventsあたりか？

**デフォルトの名無しさん** · NG

>>488
できました。
ありがとうございました！（感謝）

**print()** · NG

VBでダウンロード完了のイベントがとれるらしいのだけど、いまいち実装の仕方がわからん

ttp://www2.hos.co.jp/DemoV7/ViewCtrl/c7htmv15.htm#downloaded

に載ってるのだが・・・。どうやるでしょうか？

**478** · NG

ListBOX内の一行一行に個別に色を設定するのはＤｅｌｐｈｉ
などでしかできんのかなぁ～～～

**デフォルトの名無しさん** · NG

>>479
Insert Into BB Select * From AA

というのが一番理想。

**デフォルトの名無しさん** · NG

すいません、ちょっとクリスタルレポートに関してお聞きしたいんですが。
グループヘッダの下にページヘッダを表示したいんだけど、なにか方法はありますか？
イメージ的にはこんな感じにしたいんですけど･･･↓

【グループヘッダー】

　請求先 ○○商事
　　請求商品金額　　　　　消費税　　　　　請求合計額
　１００，０００５，０００１０５，０００

【明細見出し】

　日付　　　　　　　　品名数量　　　　単価金額

【ディテール】

2001/01/01　　　　　　○○○○ 1 100,000 100,000

**482** · NG

>>486様
お返事ありがとうございます。
>>482の書き込み内容と例が悪かったのですが、
http等の頭から問題は最後の文字です。

どこまでをURLとして認識するかが問題でした・・・。
感じとしては、２ちゃんねるの書き込みにURLを含む場合、
あああhttp://www.neko.comいいい
と書き込むと「いいい」の前でURLの認識としては止まりますよね？
他に"("カッコやスペースなんかでもURLの認識が止まると思います。

それをどうやって判断するのか・・・・。
１コずつ全角文字やスペースやカッコがあるかを判断するしかないでしょうか？
それだと、どんな文字でURLの認識が止まるのかを全て把握できなきゃいけないし・・・

**デフォルトの名無しさん** · NG

>>494
URLには絶対に含まれない文字がある（日本語対応とかで多少状況は変わってきつつあるけど）。
単にその文字移行を認識しなければいい。

**デフォルトの名無しさん** · NG

>>494
＞それだと、どんな文字でURLの認識が止まるのかを全て把握できなきゃいけないし・・・
RFC読んでね。

どうでも良いけど使用できる文字の集合とできない集合を把握するなら明らかに前者の方が楽だと思うが。

**482** · NG

>>495様　>>496様
お返事ありがとうございます。

とりあえず、これからRFCを検索して調べてみます。

ただ・・・使用できる文字の集合を把握したら、仮に1000文字だとして、
1000回分、Loop なり If なりで見ていかないとダメですよね？
かなり、厨プログラミング的な質問かもしれませんが・・・

**442** · NG

おっと、ごめんよ。
全然文章読んでなかった（ｗ
文字の比較はLike演算子を使えば楽勝です。多分。
ってかどうやったら1000文字もあるんだ（ｗ

**デフォルトの名無しさん** · NG

>>497
httpから１文字ずつループを回しながらLikeでチェック。
Likeなら範囲指定できるから幾分楽だよ。
　 chrHoge Like "[#-)+-;=?-~]"
って具合かな？
範囲がこれで正しいかは不明(^^; とりあえず実用上は支障無いと思うけど、
RFCをちゃんと調べた方がいいね…。

**デフォルトの名無しさん** · NG

どなたか教えてくだされ～
SetステートメントのHelpに

＞Set ステートメントを使って、オブジェクトへの参照を変数に代入します
と書いてあるのですが、ここで言う"参照"ってメモリのアドレスの事を言っ
ているのですか？それとも他のことですか？
教えてくだされ～!

◆LqTM395pfM · NG

VBでOCR技術みたいなのを実装したいです。
無茶なのは100も1000も承知なんですが・・・。
どうにか出来ませんかねぇ？
そもそもフリーソフトでOCRなんて使ってるソフト無いような。
ﾔﾊﾟｰﾘ技術的に相当レベル高いのでしょうか。

**デフォルトの名無しさん** · NG

>>500
ポインタだけど、直接メモリ操作はするなってことだろ。

**デフォルトの名無しさん** · NG

>>501
不可能じゃないだろうけど、遅くて無茶だと思われ。

**デフォルトの名無しさん** · NG

>>501
VBだから無茶なわけでないよ。

自分の技術の無さを言語の所為にすんなよ。

**デフォルトの名無しさん** · NG

>>502
やっぱポインタですよね！って事は
-------------------------------------
1:Dim A As Object
2:Dim B As Object
3:
4:Set A = New ClassObject
5:Set B = A
6:Set A=Nothing
7:Set B=Nothing
-------------------------------------
5行目ではAのインスタンスのコピーが作成されるのでは無く、Aに代入された
Objectインスタンスの参照がBに代入される。

したがって、6行目ではClassObjectのインスタンスは削除されずに
7行目でClassObjectのインスタンスが削除されると言う事でよろしいのでしょうか？

**デフォルトの名無しさん** · NG

グラスには、いくつかの氷が音も鳴くたたずんでいる。
喧騒が過ぎ去り、優雅な時を過ごした証のみが、そこにはあった。
琥珀色の液体と、懐かしい歌声が、少しの間忘れていた感覚を呼び覚ます。
少しの間・・・いや、何年も忘れていたのかも知れない。
夜の空白を埋めるために、ずっと探していた。
今となっては既に過去だが、そんな時の感覚を不意に思い出した。
楽しい未来の夢を見ていたわけではなく、ただ思いを受け取って欲しかった。

**デフォルトの名無しさん** · NG

ここか
http://www2.cds.ne.jp/~catty/planet/

**デフォルトの名無しさん** · NG

>>505
あってるよ。

**デフォルトの名無しさん** · NG

>>508
レスありがと～
今日会社の先輩に>>505の事が全否定されたので、
激しく動揺していましたが、ぐっすり眠れそうです。

**デフォルトの名無しさん** · NG

ＶＢのスクロールバーに関する質問ですが
MAX値が32767になっているのですが
これをもっと増やすことってできるのですか？
どなたかよろしくお願いします。

**デフォルトの名無しさん** · NG

増やさなくてもn倍すればいいじゃん

**デフォルトの名無しさん** · NG

>>510
マッピング、マッピングやっほ～やっほ～。

**デフォルトの名無しさん** · NG

>>512
本当に初心者質問ですいません。
マッピングとは具体的にどのように
やればいいのですか？
よろしくお願いします。

NG

株価のデータ集計ソフトを作っています。
株価は単位株でしか買えないので１０００株単位なら
１０２６０株－＞１００００株
１０８３０株－＞１１０００株
のようにある単位で四捨五入したいのですが、ＦＯＲＭＡＴ関数の使い方がわかりません。
今のコードは
KABUSU = Format$(KABUSU, "#.")
とやっていますが何も変わらないのです。上の方の書き込みをみて色々試したのですが。。
ｖｂ６．０を使ってます。

KABUSUの値は10526.3157...
という数字が入っており　結果は11000になってほしいのですが。
ある桁数で四捨五入はできないのでしょうか？

**デフォルトの名無しさん** · NG

>>514
そのままでは出来ないから、１０００で割ってあとで１０００を掛ける。

**デフォルトの名無しさん** · NG

そうかー全然気づかなかった。
どうもありがとうございます。
四捨五入ってできないんですね。ＥＸＣＥＬとかはRound関数とかでできたような
気がしたので頑張ってやろうとしていました。

**デフォルトの名無しさん** · NG

>>510
増やしても意味ないよ。
たいてい32767より小さくして使ってる。

**デフォルトの名無しさん** · NG

>516
Excelの関数と同機能のVB用関数はいっぱい公開されてるよ。
ぐぐってみなはれ。

**デフォルトの名無しさん** · NG

ＶＢからＣＯＢＯＬを呼ぶことできるの？
ＶＢを部品にしてＣＯＢＯＬで制御したいんだけど。

**デフォルトの名無しさん** · NG

>>519
VBからCOBOLを使いたいの？
COBOLからVBを使いたいの？

**デフォルトの名無しさん** · NG

ExcelのVBAでデータ処理をしているのですが、Excel or VBAだからか
やたら処理が遅い。VCがあるので、これをCに変換したらもっとサクサク
動くかなと思うのだが、VB自体よく分かんない。
ということで、VBからCとかJavaにコードを変換してくるフリーのソフトって
ないですかね？

**デフォルトの名無しさん** · NG

>>521
ない。あったとしてもコードの問題の可能性が大きいからどっちみち速くならないだろう。

NG

>>521

ＶＢでＤＬＬ化などして使ったらエクセルよりは速いよ。

**519** · NG

説明不足でした。
ＣＯＢＯＬから、ＶＢ（画面制御部品Ｐ）を呼んで、
ＣＯＢＯＬに値を返したいんですけど。

D · NG

>>514
四捨五入のソースは結構公開されてるんですが、あえてFormat関数を使うなら
Dim D As Double
D = 10830
D = Format(D / 1000, "#0") * 1000
Debug.Print D

という手もあります。ただFormat関数は文字列を返すはずなのであまり誉められた方法では
ありませんが。（cDbl()で変換した方がよいかも）

D · NG

>>510
元々プログレスバーは進捗状態を表すのでパーセントに変換してます。

D · NG

>>524
どんな種類のCOBOLを使ってるか分からないけどBPCなんかだとCOBOLからプログラムを
実行できたはず。状態によって少し違いますが、
最初に起動するのがCOBOL以外の場合
COBOLランタイムのコマンドラインにexeを指定して起動する必要があります。

COBOLからexeを呼び出すShell関数はあったはず（メーカーによってまちまち）

値を渡すにはﾌｧｲﾙ経由orDB経由で渡してたと思います。

**デフォルトの名無しさん** · NG

>521
やたら処理が遅いって、まず何処が遅いのかﾊｯｷﾘさせんと何もできんぞ。
どうせExcelのオブジェクトをﾑﾀﾞにグリグリ弄繰り回してるだけだろうけど。

**デフォルトの名無しさん** · NG

>>525
とあるOS(たしかXP)ではFormatは四捨五入じゃないから気をつけてな。

**デフォルトの名無しさん** · NG

>>514
KABUSU=((KABUSU+500)\1000)*1000

**デフォルトの名無しさん** · NG

浮動小数点の丸め誤差にも気をつけよう

**デフォルトの名無しさん** · NG

VB5CCE試用中なんですが、
Freeで .EXE 作成ソフトってありますか？

**デフォルトの名無しさん** · NG

>>532
ほえぇ？

**521** · NG

実験データの解析用VBAで、先輩の置き土産です。
データ数が多いのと統計解析があるので、どうしても計算量が多いので
遅くなるのです。うーむ、VBからCへの変換ソフトってのは無いようですね。
Cへ変換できたら、計測からそのまま解析に繋げられて楽だなと思ったのですが。。。
BASICと名がつくものはN88BASIC以来さわってなかったが、VB勉強して
処理の流れを把握してから移植するしかないかな。

**デフォルトの名無しさん** · NG

>>534
コードの最適化と、Professional以上でネイティブコンパイル、
CPUのアップグレード

なんてところがいいんじゃない？

**デフォルトの名無しさん** · NG

>>534
なんかしたり顔で言っているけど、処理速度向上にJAVAを上げているようじゃ
全然分かってないだろ。

**デフォルトの名無しさん** · NG

（°Д°)＜言ってません。書き込んでるだけです。（ﾌﾟ
　　　　　　　お前は何か？PCの前でひとりでしゃべってんのか？あ？

**デフォルトの名無しさん** · NG

>>537はまともに会話すら出来ないわけですな．．．

**デフォルトの名無しさん** · NG

>534
実際にVBA使った経験で演算は困るほど遅くなかったから、
セルからデータの取得、またはその逆の個所を見直して
配列を使って範囲を一気にって言う風に変えれば見違えるほど早くなったよ。

**521** · NG

#とりあえず521≠537です（念のため）。
>>536
書き方が悪かったですね。Javaを上げたのは処理速度向上のためではなく、
VBよりはJavaの方が読めるので、Javaからなら自分でCに直せるなという
ことで、あのように書きました。誤解するような文章で申し訳ないです。
>>539
なるほど。まずそちらから検討してみます。

D · NG

>>529
まじで。今使ってるのがWin2Kやからできたんか。使ってなくてよかった～
そのうちやりかねんからな。でも何で今頃．．．調べてみよ。
大変ありがとー

**デフォルトの名無しさん** · NG

Set fs = CreateObject("Scripting.FileSystemObject")
これのScriptingって、なんのことでしょう？VBScriptのことでしょうか？
古いOSだと使えないとかありますか？

**デフォルトの名無しさん** · NG

>>542
http://www.microsoft.com/japan/developer/scripting/

**542** · NG

>>543
ありがと。
今みれないから後でみてみるよ

**デフォルトの名無しさん** · NG

>>529はネタ

**542** · NG

む、みてみたけど微妙。
とりあえずWin98以降なら標準でいけるようですね。

**デフォルトの名無しさん** · NG

デスクトップとか、送るメニュー（SendTo）にショートカットを作りたいのですが
たいていST4KIT.DLLだったかを使う物ばかりです
VBではむりなんでしょうか？

**デフォルトの名無しさん** · NG

どう言ったらいいのかわからないんですが、
電卓を作りたいです。
そこでウィンドウがアクティブな時に
キーダウンイベントに反応できるようにしたいのですが、
上手くいきません。
ウィンドウに送られるキーダウン全てに反応するには
どこに記述したらいいのでしょうか？
つまりウィンドウのどこにフォーカスがあっても
キーダウンをキャッチしたいわけです。
どうすればいいでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · NG

>>547
Delphiなら.lnkの作成もパスの取得も簡単ですよ♪

>>548
DelphiならKeyPreviewプロパティをtrueにするだけだよ♪

**デフォルトの名無しさん** · NG

>>547
IShellLinkインタフェースを実装するとか。ぐぐって。

>>548
コマンドボタン上にあるときの←キーとかは取れないが、
KeyPreview=Trueで。

**548** · NG

>550
助かりました、無事成功しました。
ありがとうございました。

**デフォルトの名無しさん** · NG

VB未経験者ですが、下記のソースをビルドしたいと思ってます。
http://www.yecc.gr.jp/vb/prog/pricla/primain.html

開発環境を持ってないので、これからVBを購入するつもりです。
現在最新のVB用開発環境はVB.NETだと思うのですが、
上記のソースがVB.NETでビルドできるか知りたいです。
お願いします。

**デフォルトの名無しさん** · NG

>>552
なんで、作者に聞かんの ? 掲示板みたいな奴もあったよ。(あまり活発そうじゃないけど...。)

**デフォルトの名無しさん** · NG

>>552
ビルドできない。
さらに、このソースコードはVB.NET用に直すのにも手間がかかるパターン。
VB6までのVBとVB.NETは別の言語と思ってもらった方がいい。

VB.NETで一から勉強して作るがよろしかろう。

**547** · NG

お～WindowsScriptオブジェクト使えばショートカット作れるんじゃん
と思ってやったら

Norton先生が反応しますた。

いや、つくれたんですけどね。これじゃだみだ。

**543** · NG

>>546
世話が焼けるなあ。

プリインストされてるWSHのバージョン
Windows95 なし
WindowsNT4.0 なし
Windows98 　WSH1.0
Windows2000 　WSH2.0
WindowsME 　WSH5.5
WindowsXP 　WSH5.6

98や2Kはバージョン古すぎるから、最新版をインスト。
95やNTは新規インストすればいいだけ。

**552** · NG

レスありがたう。

>>553
そうなんです、BBSあまりにもアレだったんで、
こちらでお聞きした次第です。

>>554
流用は無理ですか。。。
VB.NETって、VBと同じことができるんでしょうか。
他にUSBカメラからの画像キャプチャもしたいんです。

実は、簡易プリクラを作ろうと思ってるんですが、
そんな用途にもVB.NETは向いてますか？

どっちかというと、VB6の方がいいような。。。
ご意見をお願いします。

**デフォルトの名無しさん** · NG

>>529 >>541 >>545
WinXPではFormat関数が内部で利用しているAPIの仕様変更の影響で
動作が四捨五入じゃなくなった。MSはそれを仕様だと逃げようとしたが、
苦情殺到のため、SP1で元の仕様に戻した。

SP1を入れないWinXPへの対応として、そのFormat関数を四捨五入する
仕様に戻すパッチも単独で提供されている。

**542** · NG

>>556
なるほど、全然バージョンが違いますね
オンラインソフトにはむかないかなぁ？
今のところFileSystemObjectしかつかってないけど

やっぱりWinAPI使った方がいいかな

**デフォルトの名無しさん** · NG

.iniファイルに書き込もうと思って調べたら
WritePrivateProfileSection
などを使用することがわかったのですが、
うまくいきません。
VB6.0で書くと構文エラーで赤字で表示されます。
これはなぜでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · NG

>>560
構文エラーだからです。それ以上でもそれ以下でもありません。

新実 · NG

お前等お前等お前等お前等お前等お前等お前等お前等
ヽ( ･∀･)ﾉ < ㌶㌍㌫㌻㍍㍗㌫㍊㍍㌘㌶㌍㌫㌻㍍㍗
http://genie.gaiax.com/home/nakatai
お前等お前等お前等お前等お前等お前等お前等お前等

**デフォルトの名無しさん** · NG

>>560
> .iniファイルに書き込もうと思って調べたら
> WritePrivateProfileSection
> などを使用することがわかったのですが、
> うまくいきません。

何で、.ini ファイルなんか使うの ?
GetSetting() / GetAllSettings() / SageSetting() / DeleteSetting() じゃダメなん ?

**デフォルトの名無しさん** · NG

編集しやすいから

**デフォルトの名無しさん** · NG

俺はiniを読むときはAPI使うが書くときは普通に開いて整形しながら書き込み

**デフォルトの名無しさん** · NG

ファイルのopenについて聞きたいんですが、ファイルのopenに失敗した時
エラーのメッセージボックスを出したいと思っています。でもどうやって
ファイルのopenに失敗したことを知ればいいのか分かりません。
どうすればいいでしょうか？

今は実行されると同時に次のようにしてファイルを読み込んでいます。

Public Sub Form_Load()
Open "C:\AtomCount\M.txt" For Input As #1
　　For i = 1 To Ypixel
　　　　For j = 1 To Xpixel
　　　　　Input #1, A(i, j)
　　Next
　　Next
Close #1　　　'これと同じような動作を後2回します。

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15