Android Question ZoomImageView2,how to add new event:CallSubAnyArgs(ParamArray args())

[xiaoyao]

Sub Sum (ParamArray intNums ())


Error description: Too many parameters.
An error occurs in the following line: 257
：257
CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
word: _ref

Else if Action = pnl.TOUCH_ACTION_UP Then
        TouchDown = False
 
[B]how to CallSub4,CallSub5?CallSub(any args?:confused:[/B]
 
                  
        If DateTime.Now - ClickStart < ClickThreshold And DisableClickEvent = False Then
            Sleep(1)
            If xui.SubExists(mCallBack, mEventName & "_ZoomEvent", 3) Then
                CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
            End If
      
            If xui.SubExists(mCallBack, mEventName & "_Click", 0) Then
                CallSub(mCallBack, mEventName & "_Click")
            End If
        End If

Private Sub ZoomChanged (x As Int, y As Int, ZoomDelta As Float)
    Dim ivx As Float = x - pnlBackground.Left
    Dim ivy As Float = y - pnlBackground.Top
    ZoomDelta = Max(ZoomDelta, mBase.Width / pnlBackground.Width)
    pnlBackground.SetLayoutAnimated(0, x - ivx * ZoomDelta, y - ivy * ZoomDelta, pnlBackground.Width * ZoomDelta, pnlBackground.Height * ZoomDelta)
    SetImageViewLayout
    UpdateScaleAndCenter
 
    If xui.SubExists(mCallBack, mEventName & "_ZoomEvent", 3) Then
        CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
    End If
      
End Sub

 

[xiaoyao]

how to load pictures auto zoom to (2.3,showPIC x,y)?
how to cpy function info by tips?

Private Sub ZoomImageView1_ZoomEvent(CurrentScale As Float, CenterX As Float, CenterY As Float)

txt1.Text= CurrentScale & ",xy=" & CenterX & "," & CenterY
End Sub

 

[Sagenut]

You do not need to copy the intellisense hint.
When you will write the command

ZoonImageView1.SetBitmapEX(

then the hint will come up by itself indicating you which parameters are needed.

 

[Sagenut]

Error description: Too many parameters.
An error occurs in the following line: 257
：257
CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
word: _ref

Else if Action = pnl.TOUCH_ACTION_UP Then
        TouchDown = False
 
[B]how to CallSub4,CallSub5?CallSub(any args?:confused:[/B]
 
                 
        If DateTime.Now - ClickStart < ClickThreshold And DisableClickEvent = False Then
            Sleep(1)
            If xui.SubExists(mCallBack, mEventName & "_ZoomEvent", 3) Then
                CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
            End If
     
            If xui.SubExists(mCallBack, mEventName & "_Click", 0) Then
                CallSub(mCallBack, mEventName & "_Click")
            End If
        End If

Private Sub ZoomChanged (x As Int, y As Int, ZoomDelta As Float)
    Dim ivx As Float = x - pnlBackground.Left
    Dim ivy As Float = y - pnlBackground.Top
    ZoomDelta = Max(ZoomDelta, mBase.Width / pnlBackground.Width)
    pnlBackground.SetLayoutAnimated(0, x - ivx * ZoomDelta, y - ivy * ZoomDelta, pnlBackground.Width * ZoomDelta, pnlBackground.Height * ZoomDelta)
    SetImageViewLayout
    UpdateScaleAndCenter
 
    If xui.SubExists(mCallBack, mEventName & "_ZoomEvent", 3) Then
        CallSub3(mCallBack, mEventName & "_ZoomEvent", CurrentScale, CenterX, CenterY)
    End If
     
End Sub

If you need to pass many parameters then you should use CallSub2 and put a Map, a List or a Type with all what you need to pass as a unique parameter.

 

[xiaoyao]

If you need to pass many parameters then you should use CallSub2 and put a Map, a List or a Type with all what you need to pass as a unique parameter.

can b4a,b4i make new method callbyname(obj,methodanme,anyargs)
like vb6 ParamArray

Sub Sum (ParamArray intNums ())
   For Each x In intNums
      y = y + x
   Next x
   intSum = y
End Sub
call    Sum (1, 3, 5, 7, 8)
result= Sum (1, 3, 5, 7, 8)

public class ClassB {
    public String downurl(String url, int timeout, String CHARSET) {
        System.out.println("URL：" + url);
        System.out.println("Timeout：" + timeout);
        System.out.println("Charset：" + CHARSET);
        return "Download completed";
    }
}

import java.lang.reflect.Method;
 
public class CallMethodUtil {
    public static Object callMethod(Object obj, String methodName, Object... params) throws Exception {
        Class<?> clazz = obj.getClass();
        Class<?>[] paramTypes = new Class[params.length];
        for (int i = 0; i < params.length; i++) {
            paramTypes[i] = params[i].getClass();
        }
        Method method = clazz.getMethod(methodName, paramTypes);
        return method.invoke(obj, params);
    }
}

 ClassB b = new ClassB();
            Object result = CallMethodUtil.callMethod(
                b,
                "downurl",
                "https://www.baidu.com",
                5000,
                "UTF-8"
            );
            System.out.println("Return result：" + result);

 

[xiaoyao]

You do not need to copy the intellisense hint.
When you will write the command

ZoonImageView1.SetBitmapEX(

then the hint will come up by itself indicating you which parameters are needed.

SOME METHOD TIP INFO, I want to copy the event definition and description of the library to AI or browser, and translate them into the language and script of my country

can b4a ide make new tips:
event ZoonImageView1_??
LIKE SUB CONTROL_CLICK


Can we add a new syntax keyword?
Event ControlName_EventName(args)


it will show you :ZoonImageView1_click()
ZoonImageView1_zoomEvent(**)

 

[aeric]

You can type Sub and press Tab.
Intellisense will list out the available objects.
Select the object you want and Intellisense will list out the available events.

 

[Sagenut]

how to load pictures auto zoom to (2.3,showPIC x,y)?
how to cpy function info by tips?

Private Sub ZoomImageView1_ZoomEvent(CurrentScale As Float, CenterX As Float, CenterY As Float)

txt1.Text= CurrentScale & ",xy=" & CenterX & "," & CenterY
End Sub
View attachment 171624

To my knowledge I think that a solution could be to take a screenshot, crop the selction to take only the text that you need and pass it to something like Google Translator or similar that can get the text from an image.

 

[aeric]

Check:

[分享]B4X库XML翻译小工具

这是我第一次接触B4X的时候写的一个小工具。 采用讯飞小牛翻译付费接口。价格是100万字符/48元。讯飞小牛翻译针对新用户提供了200万字符的免费试用量。 可以用它来翻译B4X库附带的XML文件。翻译后，在B4X IDE中编写代码时悬浮的说明就变成中文了，并且同时保留了原文以防止机翻不准确。 需要自己到讯飞小牛官网开通付费接口 。100万字符量应该够所有库的XML说明翻译了。 请将您自己的APIKey、APISecret、appid填写到 api授权.txt， 并保存。 讯飞小牛翻译网址：https://www.xfyun.cn/service/niutrans 源码链接...

www.b4x.com

 

[Sagenut]

I made some corrections to your project.
Check if this work.
If the comments are not clear enough make your questions about.
The Event in the code will be something like this

Private Sub EventName_ZoomEvent (args As List)  ' <-- 加这行
    For Each o As Object In args
        Log(o)
    Next
End Sub

But please do not write in capital or extra textsize.
It can happen that me (or anyone else) does not understand correctly the question on first time.
With patience everything will come.