あぶすとらくと

ゴミ箱を指定するにはSpecialFolder、ファイルの移動はMoveFileToを使う。

  Dim Filez As FolderItem
  Dim fTrash As FolderItem
  fTrash = SpecialFolder.Trash
  
  Filez = GetFolderItem ( DropedFilePath)
  Filez.MoveFileTo (fTrash)
  MsgBox("削除しました")

http://docs.xojo.com/index.php/SpecialFolder

Rb逆引き辞典
http://www.asahi-net.or.jp/~bx5k-wtnb/rbdic.html

まだあったんだなぁ…これは助かりそうです

もともとREALbasicだったのがREALstudioになりXOJOになった…のだそうですが、久しぶりにちょこちょこと触ってみていろいろとRbでフリーウェアを公開しネ申と呼ばれた時代たことを思い出して懐かしくなりました。

iOSやウェブアプリの対応など新しいフレームワークになって進化を感じましたが、とにかくコードの記述量が少なくて済むのでやはり何か作ってみようと思わせる気軽さがあります。
省力化を目的として使い捨てのプログラムをシェルスクリプトやRUBYで書くことが多いのですが、コマンドに不慣れな人に手伝ってもらうような場合はやはりスタンドアローンのアプリケーションだと都合がよいのでそういうシチュエーションには役立ちそうです。


しかし気になったことはやはり参考になるソースの量が少ないことでしょうか。入門ガイドも英語なのでちょっととっつきにくい感じがします。
基本的な言語仕様についてはリファレンスガイドを見ればだいたい分かるんですが、機能からの逆引きがあると便利だなと思いますね。
まだXOJO本として日本語での参考書というのはでていないようですが古いREALbasic時代の本は2冊ほどあったと思います。言語仕様的にはほとんど変わっていないのでそれなりに参考にはなりそうな気がします。


XOJO
https://xojo.com/

Xojoリファレンスガイド
http://developer.xojo.com/reference-guide

xojojapan FaceBook
https://www.facebook.com/xojojapan

Xojo, Inc. 日本語部ブログ
http://xojojapan.blogspot.jp/

配置したコントロールのEvent HandlerのOpenにドラッグ＆ドロップを許可するファイルタイプを記述。

Windows1>Control>Canvas1>Open

Me.AcceptFileDrop("image/jpeg")

Windows1>Control>Canvas1>Drop Object

　//ドロップされたJPEGを背景に設定
  If Obj.PictureAvailable Then
    Me.Backdrop = obj.Picture
  ElseIf Obj.FolderItemAvailable Then
    Me.Backdrop = Picture.Open(obj.FolderItem
    //ドロップされたファイルのパスをTextField1に表示
    TextField1.text =obj.FolderItem.AbsolutePath
  End If

RectControl.DropObject ( Obj as DragItem, Action as Integer )
http://docs.xojo.com/index.php/RectControl.DropObject
DragItem
http://docs.xojo.com/index.php/DragItem
DragItem.FolderItem
http://docs.xojo.com/index.php/DragItem.FolderItem

ウインドウを閉じてアプリケーションを終了させる方法。
チュートリアルやサンプルでは用いていないようなので思い出すのに苦労しました(--;)

WIndow1>Close　に以下を記述。

Quit

もともとREALbasicにはたしなみがあったんですが、久しぶりに現状を調べてみると今はXOJOという名前に変更になっているようですね。iOSに対応しているというのが今風らしい。

体験版をDLして久しぶりに何か作ってみようと思い、チュートリアルを見ながらWebブラウザを作ったりしました。
以外なところでURLエンコーディングで詰まったのでそのメモ。

helpには載っておらずハマりました。

  Dim URL As String
  
  URL = EncodeURLComponent(TextField1.Text)
  
  TextField2.text=URL

参考ページ
http://docs.xojo.com/index.php/EncodeURLComponent