ab.com コミュニティ

確か、マティさんのサイトにAB用の「StrConv関数もどき」のプログラムが置いてあると思いました。↓
http://www14.plala.or.jp/matea/index.html

> NoWest氏の張ったリンク先で、イグトランスｓが方法を明示済みですよ。

∑(゜∀ﾟ)何と！　→　○|￣|＿ ････自分も使おう････。

DWord値からそれぞれのRGB成分を抽出する方法を知りたいということでは？ たとえば、 rgb = RGB(123,45,67) というRGB値から赤緑青のそれぞれの値を取り出すなら、 '[ActiveBasic 4.24:動作確認済み(一部省略)] Dim rgb As DWord Dim R As Byte, G As Byte, B As Byte 'ここで、すでに変数「rgb」に値が入っているとします。 R = rgb Mod 256 rgb \= 256 G = rgb Mod 256 rgb \= 256 B = rgb Mod 256 'ここまで実行すれば、Rに赤の成分、Gに...

ちょっと、状況が少し読めないところがありますが････、

プロジェクトを開くと、「Source Files」というフォルダが表示されているところに、「MainWnd.sbp」とか表示されている思いますが、
その中に、その問題の別に作った「sbpファイル」が入って(表示されて)いますか？

もし、入っていなければ、「Source Files」というフォルダを右クリックして「ファイル挿入」で、その「sbpファイル」をいれてみてください。
そうすれば(多分、)解決すると思います。

今は、無い(？)です。
数年前から、自作のプログラム言語を作っていて、文字列とファイル操作に苦戦していましたが、つい最近、文字列操作やファイル操作を(自分対象で)簡単にするための関数を一通り完成して、それを使っているので、今は無いです。(そのうち、ほかの事で苦戦して苦手分野が出てくるかもしれませんが････。)

「Tomorrow」さんに言われたとおり、「FileTimeToLocalFileTime」を使ってみたら・・・・ Function Export GetFileCreationTime(fileNumber As Integer) As String '+ ファイルの作成日時を取得します + Dim Str As String Dim fileUTC_FDT As FILETIME Dim fileLocal_FDT As FILETIME Dim fileSDT As SYSTEMTIME GetFileTime(fileData(fileNumber).hFile, fileUTC_FD...

下のような、プログラムを作って、エラーもなく動作するのですが、 なぜか、作成日時の時間の部分が、実際とずれてしまっています。 どこか、間違っている部分とかあるでしょうか？ Function GetFileCreationTime(fileNumber As Integer) As String '+ ファイルの作成日時を取得します + Dim Str As String Dim fileFDT As FILETIME Dim fileSDT As SYSTEMTIME GetFileTime(fileData(fileNumber).hFile, fileFDT, ByVal NULL, By...

自分がこの「Active Basic」を選んだわけは、 作ったソフトウェアが、ランタイムを使わずに、実行できるから と言うのが一番の理由です。 以前、使っていた「Visual Basic」系は、作ったソフトを実行するには、「Ver 6.0」なら「VB6ランタイム」が必要でしたし、「.NET」なら「.NET framework」と言うランタイムが必要です。 いちいち、そのランタイムを一緒に送ったりするのが一番嫌いでした。 それで、C言語を始めようかと思ったのですが、 自分は、昔からBASIC系の言語(VBScript、Visual Basic、N88BAISC、99BASIC)しか本格的にやった...

動いてよかったです。
約1日考え続けた結果がありました。
言い忘れましたが、あのコードのままだと、最大255バイトまでの文字列しかパスワードが設定できないですが････。

「2006年07月19日(水) 07」に書き込んだ「ゲスト」さんは自分なんですがね・・・。(ログインするのを忘れて書き込んでしまったから･･･。)

すでに「MainWnd2」が表示されているときを想定して作りました。 「MainWnd」の「EditBox1」に文字が入力されると、 リアルタイムに「MainWnd2」の「EditBox1」に文字数が表示されるようになっています。 Sub MainWnd_EditBox1_Change() Dim Str As String Dim S As String Dim Length As Long Length = GetWindowTextLength(GetDlgItem(hMainWnd, EditBox1)) Str$ = ZeroString(Length) GetDlgItemText...

多分、複合化の際に、 '文字列の長さを調べて保存する Str_Size = Len(Str$) が抜けているのが原因かと思います。 Sub MainWnd_CommandButton1_Click() Dim ret As Long Dim Letter As String Dim User As String Dim Str$ As String Dim Pass2 As String Dim P[SIZE] As Byte Dim aaa As Long Dim Str_Size As Long '文字列の長さ Dim Chr_Num As Integer '文字コードの番号 Dim I ...

明らかに、 『"Sub" に対する "End Sub" が見つかりません』 と、エラーが出るはずのコードを書いたとき、 全く問題の場所で、 『"Sub" の使い方が不正です』 というエラーが発生します。 詳細は下に書きました。 ・不具合発生条件 1,プロジェクトファイルであること。 2,「Source Files」に複数の「.abp」ファイルがあること。 3,プロジェクトのメインファイル以外であること。 /* fios.abp */ #include "fios.idx" #console ' ↓ ここからプログラ...

>もう少し分かりやすくしていただけないでしょうか？ ↑文学系が苦手な自分には、そっちの方が難しいです。orz 一応、簡単そうだった「ケースケ」さんのプログラムを少し改変してみました。 ただ、この暗号方法は、文字コードに沿って文字を一定数だけずらしたの暗号なので、わかる人にはわかってしまうのが欠点です。 Const X = 5 '暗号化の定数 Dim Str$ As String '暗号化する文字列 Dim Str_Size As Long '文字列の長さ Dim Chr_Num As Integer '文字コードの番号 Dim I As Long '暗号化する文字列を記録 Str$ = &qu...

前に、同じような質問があったので、そこのURLを落としておきます。
http://www.activebasic.com/forum/viewtopic.php?t=1213

> これは AB のバグということでしょうか？
↑たぶん、そうかもしれませんね。

> 必要であるなら、メールでプロジェクトファイルごと送ります。
↑時間がかかると思いますが、とりあえず、自分も調べてみます。
(GUIプログラムは約1年ぶりで、「VisualBasic」でしかやったことが無いので・・・・。)