{"title":"\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u5185\u3067\u306e\u30ab\u30fc\u30bd\u30eb\u4f4d\u7f6e\u306e\u53d6\u5f97\u3068\u8a2d\u5b9a\u65b9\u6cd5","categories":["VB"],"url":"https://blog.systemjp.net/entry/20040415/p1","provider_name":"Hatena Blog","description":"SelStart,SetFocus,SelStart\u3092\u4f7f\u7528\u3059\u308b\u3002\u4e0b\u8a18\u306fVC\u306e\u30c7\u30d0\u30c3\u30af\u30a6\u30a4\u30f3\u30c9\u30a6\u3068\u540c\u3058\u52d5\u304d\u3092\u3055\u305b\u305d\u3046\u3060\u304c\u30d0\u30b0\u3063\u3066\u308b\u30bd\u30fc\u30b9.(\u30ab\u30fc\u30bd\u30eb\u304c\u4e00\u756a\u4e0b\u306b\u3042\u308b\u3068\u304d\u306f\u6587\u5b57\u5217\u306b\u5909\u5316\u304c\u3042\u3063\u3066\u3082\u3001\u30ab\u30fc\u30bd\u30eb\u3092\u4e00\u756a\u4e0b\u306b\u79fb\u52d5\u3055\u305b\u3001\u4e00\u756a\u4e0b\u306b\u306a\u3044\u3068\u304d\u306f\u30ab\u30fc\u30bd\u30eb\u3092\u79fb\u52d5\u3055\u305b\u306a\u3044) Dim bCurMoveflag As Boolean bCurMoveflag = False If Me.Text1.SelStart = Len(Me.Text1.Text) Then bCurMoveflag = True End If Me.Text1.Text = Me.Text1.Text + aText + vbCrLf\u2026","author_url":"https://blog.hatena.ne.jp/shikaku/","provider_url":"https://hatena.blog","height":"190","type":"rich","blog_title":"shikaku's blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F20040415%2Fp1\" title=\"\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u5185\u3067\u306e\u30ab\u30fc\u30bd\u30eb\u4f4d\u7f6e\u306e\u53d6\u5f97\u3068\u8a2d\u5b9a\u65b9\u6cd5 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"author_name":"shikaku","width":"100%","blog_url":"https://blog.systemjp.net/","version":"1.0","published":"2004-04-15 00:00:00"}