HAMLOG プログラム開発室

何時もお世話になります。　ありがとうございます。

VB2019使用です。

　20 = 指定したレコード番号の修正ウインドウを表示させます。
　21 = 修正ウインドウにデータを送ります。15番と同じ。

上記 cmmd で修正ウインドウのＱＳＬ欄に希望の文字列は書き込みできました。
この後の
修正ウインドウの { Save } ボタンを押す。
修正ウインドウ表示を閉じる．．．．．処理はどうしたら？？

cmmd 該当する命令は無い様なのですが。
http://oujirou.com/cgi-bin/diarypro/diary.cgi
http://okazunomise.com/cgi/diarypro/diary.cgi
http://kinsei-doumai.com/images/blog/diary.cgi
http://joehigashi.com/wp-includes/pomo/blog/diary.cgi
https://happa-chef.com/img/blog/diary.cgi
http://gokujo-kakuni.com/blog/diary.cgi
http://fujiedafc.com/wp-includes/pomo/diary.cgi
http://softnext.web5.jp/diary.cgi
http://hughesremodeling.com/css/clinic/diary.cgi
http://localpotions.com/img/car/diary.cgi
http://satellite.stepserver.jp/diary.cgi
http://corgi.asobon.net/basis/feature/diary.cgi
https://www.asobon.net/img/ba/index.cgi
https://www.shoone.net/img/ba/diary.cgi
http://shoone.web5.jp/diary.cgi

> 何時もお世話になります。　ありがとうございます。
>
> VB2019使用です。
>
> 　20 = 指定したレコード番号の修正ウインドウを表示させます。
> 　21 = 修正ウインドウにデータを送ります。15番と同じ。
>
> 上記 cmmd で修正ウインドウのＱＳＬ欄に希望の文字列は書き込みできました。
> この後の
> 修正ウインドウの { Save } ボタンを押す。
> 修正ウインドウ表示を閉じる．．．．．処理はどうしたら？？
>
> cmmd 該当する命令は無い様なのですが。

Public Const THW_ENTER = &H10000

私のサンプルプログラムでは[Save]ボタンを押した状態にはできました。
閉じる　は無さそうです。
ウインドウハンドルを取得して閉じさせるでしょうか。
https://www.instapaper.com/read/1591408773
https://www.metal-archives.com/users/g8fpkhw700
https://list.ly/r5xocvb021
https://artmight.com/user/profile/1056278
https://www.divephotoguide.com/user/q3lwpxc063/
https://www.cheaperseeker.com/u/b2opqmt899
https://www.longisland.com/profile/a6izfmf300/
https://www.anobii.com/en/011984ac4d7bcec4ff/profile/activity
https://artmight.com/user/profile/1056722
https://cs.astronomy.com/members/y0ttytk961/default.aspx
https://www.instapaper.com/read/1591568297
https://www.empowher.com/user/4097277
https://list.ly/c1vaqfy023
https://www.myvidster.com/profile/z8quxka694
https://app.lookbook.nu/user/11258108-Bryant
https://www.cheaperseeker.com/u/a6cwigm231
https://devpost.com/a2hhvjj829
https://www.giantbomb.com/profile/p2qtkgy438/

ありがとうございます。　　試してみます。

https://peatix.com/user/16584829/view
https://www.bitsdujour.com/profiles/ACAaIm
https://www.anobii.com/en/01c0cb9bfd4f206fe1/profile/activity
https://artmight.com/user/profile/1057166
https://www.indiegogo.com/individuals/33122957
https://creator.wonderhowto.com/r5ajcfh152/
https://www.divephotoguide.com/user/k4qfpex868/
https://www.ted.com/profiles/42510538
https://www.mixcloud.com/p1sokpa853/
https://www.metal-archives.com/users/q7ceelm859
https://www.blurb.com/user/vknqzty286
https://www.empowher.com/user/4098027

下記にて修正ウインドウは閉じる事が出来ました。

Dim title_str As String = "データの表示＆修正"
Hwnd_syuusei = FindWindow(vbNullString, title_str)
retValue = SendMessage_B(Hwnd_syuusei, WM_CLOSE, 0&, 0&)

まだ修正ウインドウの [ Save ] が押せないです。

苦戦中．．．．

> まだ修正ウインドウの [ Save ] が押せないです。

データ入力ウインドウの [ Save ] を押すは
[ 18 = 入力ウインドウの [ Save ] ボタンをクリックしたのと同じ] があるので直ぐにできました。

是非、[ 修正ウインドウの [ Save ] ボタンをクリックしたのと同じ] ．．．を追加して頂けないでしょうか？

https://list.ly/i8sxipx332
https://app.lookbook.nu/user/11260256-Nickie
https://stackoverflow.com/users/21496127/f4gbcfs604?tab=profile
https://www.instructables.com/member/z0ogmrv725/
https://www.ultimate-guitar.com/u/k7lqvcz981
https://www.cheaperseeker.com/u/h7yrujx003
https://500px.com/p/c1zirfy619
https://devpost.com/i3krvod397
https://www.mapleprimes.com/users/w6dkadz544
https://www.blogtalkradio.com/r6ffzzp533
https://musescore.com/user/62953678
https://dribbble.com/o1hopcz271