tag

PHP与前端分享功能实现
本文探讨了如何使用PHP处理URL请求并获取类型信息的方法。同时介绍了前端弹出分享面板的功能,包括设置标题、链接等参数,并实现了点击分享的效果。此外,还提到了成功或失败提示的弹出框设计。
1,send php url ,get type info
2,popup share panel, include title,link,type, click share
3,popup success or fail
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim tag10,tag11,tag12,tag13,tag14,tag15,tag16,tag17,tag18,tag19 Dim tag1,tag2,tag3,tag4,tag5,tag9,PreTemp,PreTemp2,PreTemp3,RT,PreTemp4,PreTemp5,PreTemp6 Dim tag20,tag21,tag22,tag23,tag24,tag25,tag26,tag27,tag28,tag29 Dim tag30,tag31,tag32,tag33,tag34,tag35,tag36,tag37,tag38,tag39 Set tag20 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-1功率偏移")'入口CV_編輯_DB_加熱區_CA1-1功率偏移 Set tag21 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-2功率偏移") Set tag22 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-3功率偏移") Set tag23 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-4功率偏移") Set tag24 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-5功率偏移") Set tag25 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-6功率偏移") Set tag26 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-7功率偏移") Set tag27 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-8功率偏移") Set tag28 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-9功率偏移") Set tag29 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-10功率偏移") Set tag10 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_1") Set tag11 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_2") Set tag12 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_3") Set tag13 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_4") Set tag14 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_5") Set tag15 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_6") Set tag16 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_7") Set tag17 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_8") Set tag18 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_9") Set tag19 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_10") Set tag9 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_STEP5上功率") Set tag30 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_1") 'rcp_HOT_PowerSet_Up_1_1 Set tag31 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_2") Set tag32 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_3") Set tag33 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_4") Set tag34 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_5") Set tag35 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_6") Set tag36 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_7") Set tag37 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_8") Set tag38 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_9") Set tag39 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_10") Set tag1 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_NDS_1") Set tag2 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_AM_Z1") Set tag4 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_SEC1") Set tag5 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_DS_1") tag30.Read tag31.Read tag32.Read tag33.Read tag34.Read tag35.Read tag36.Read tag37.Read tag38.Read tag39.Read tag1.Read '上變 tag2.Read '手,自 tag4.Read '基本值 tag5.Read '下變 tag9.Read If tag2.Value = 1 Then PreTemp=CDbl((1-tag1.Value) * 0.67) PreTemp2=CDbl((1-tag1.Value)* 0.33) PreTemp4=CDbl((1-tag5.Value) * 0.67) PreTemp5=CDbl((1-tag5.Value)* 0.33) tag2.Value=0 tag10.Value = CDbl(tag4.Value * tag1.Value) * CDbl(tag9.Value) tag11.Value = CDbl(tag4.Value * (1-PreTemp) * CDbl(tag9.Value)) tag12.Value = CDbl(tag4.Value * (1-PreTemp2) * (CDbl(tag9.Value))) tag13.Value = CDbl(tag4.Value * CDbl(tag9.Value)) tag14.Value = CDbl(tag4.Value * CDbl(tag9.Value)) tag15.Value = CDbl(tag4.Value * (1-PreTemp5) * (CDbl(tag9.Value))) tag16.Value = CDbl(tag4.Value * (1-PreTemp4)) * (CDbl(tag9.Value)) tag17.Value = CDbl(tag4.Value * tag5.Value) * (CDbl(tag9.Value)) tag20.Value = (tag4.Value * tag1.Value) * 100 tag21.Value = (tag4.Value)* (1-PreTemp) * 100 tag22.Value = (tag4.Value)*(1-PreTemp2) * 100 tag23.Value = (tag4.Value * 100) tag24.Value = (tag4.Value * 100) tag25.Value = (tag4.Value)*(1-PreTemp5) * 100 tag26.Value = (tag4.Value * (1-PreTemp4) * 100) tag27.Value = ((tag4.Value * tag5.Value) * 100) ' tag28.Value = (tag4.Value * (1-PreTemp4) * 100) ' tag29.Value = ((tag4.Value * tag5.Value) * 100) Else tag2.Value=1 tag10.Value = CInt(tag4.Value * tag30.Value * CDbl(tag9.Value)) tag11.Value = CInt(tag4.Value * tag31.Value * CDbl(tag9.Value)) tag12.Value = CInt(tag4.Value * tag32.Value * CDbl(tag9.Value)) tag13.Value = CInt(tag4.Value * tag33.Value * CDbl(tag9.Value)) tag14.Value = CInt(tag4.Value * tag34.Value * CDbl(tag9.Value)) tag15.Value = CInt(tag4.Value * tag35.Value * CDbl(tag9.Value)) tag16.Value = CInt(tag4.Value * tag36.Value * CDbl(tag9.Value)) tag17.Value = CInt(tag4.Value * tag37.Value * CDbl(tag9.Value)) ' tag18.Value = CInt(tag4.Value * tag38.Value * CDbl(tag9.Value)) ' tag19.Value = CInt(tag4.Value * tag39.Value * CDbl(tag9.Value)) ' tag20.Value = CDbl(tag4.Value * tag30.Value ) * 100 tag21.Value = CDbl(tag4.Value * tag31.Value ) * 100 tag22.Value = CDbl(tag4.Value * tag32.Value ) * 100 tag23.Value = CDbl(tag4.Value * tag33.Value ) * 100 tag24.Value = CDbl(tag4.Value * tag34.Value ) * 100 tag25.Value = CDbl(tag4.Value * tag35.Value ) * 100 tag26.Value = CDbl(tag4.Value * tag36.Value ) * 100 tag27.Value = CDbl(tag4.Value * tag37.Value ) * 100 ' tag28.Value = CDbl(tag4.Value * tag38.Value ) * 100 ' tag29.Value = CDbl(tag4.Value * tag39.Value ) * 100 End If tag2.Write tag10.Write tag11.Write tag12.Write tag13.Write tag14.Write tag15.Write tag16.Write tag17.Write ' tag18.Write ' tag19.Write tag20.Write tag21.Write tag22.Write tag23.Write tag24.Write tag25.Write tag26.Write tag27.Write ' tag28.Write ' tag29.Write End Sub
10-11
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值