koraycan123 Posted August 6, 2011 Share Posted August 6, 2011 arkadaşlar yabancı sitelerden flash oynatmayı öğrendim daha doğrusu kopyala yapıştır yaptım fakat bu flashın üstüne buton felan koyunca gözükmüyor anca mausu götürünce gözüküor gucreateobj hepsinin önüne geçior buton felan nasıl koyucam bi yardımcı olsanız ? [codebox] #include <guiconstants.au3> $gGui = GUICreate("FusionChartsFree - AutoIt Example 1", 800, 600, -1, -1) GUISetBkColor (0x000000) GUICtrlCreateButton("deneme",300,400) GUISetState(@SW_SHOW) $oChart2 = _CreateFusionChart("FCF_MSColumn3D.swf", @ScriptDir & "\Example1.xml", 0, 0, 800, 600) While True Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch Sleep(10) WEnd Exit Func _CreateFusionChart($sFusionChartFile, $sFusionChartPath, $iFusionChartL, $iFusionChartT, $iFusionChartW, $iFusionChartH, $sFusionChartBGColor = "505050") $oFusionChart = ObjCreate("ShockwaveFlash.ShockwaveFlash") $oFusionChartActiveX = GUICtrlCreateObj($oFusionChart, $iFusionChartL, $iFusionChartT, $iFusionChartW, $iFusionChartH) With $oFusionChart $sFlashVars = "&chartWidth=" & $iFusionChartW & "&chartHeight=" & $iFusionChartH & "&dataURL=" & _URIEncode($sFusionChartPath) ;MsgBox(0, "_CreateFusionChart", "FlashVars=" & $sFlashVars) .FlashVars = $sFlashVars .Movie = @ScriptDir & "\" & $sFusionChartFile .ScaleMode = 5 ;0 showall, 1 noborder, 2 exactFit, 3 noscale .bgcolor = $sFusionChartBGColor .Loop = "True" .WMode = "transparent" .allowScriptAccess = "Always" EndWith Return $oFusionChart EndFunc Func _URIEncode($sData) Local $aData = StringSplit(BinaryToString(StringToBinary($sData, 4), 1), "") Local $nChar $sData="" For $i = 1 To $aData[0] $nChar = Asc($aData[$i]) Switch $nChar Case 45, 46, 48-57, 65 To 90, 95, 97 To 122, 126 $sData &= $aData[$i] Case 32 $sData &= "+" Case Else $sData &= "%" & Hex($nChar,2) EndSwitch Next Return $sData EndFunc [/codebox] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted August 6, 2011 Share Posted August 6, 2011 Bu şekilde hem büyük hem renkli yapsan butonu [codebox]$YELLOW = GUICtrlCreateButton("deneme", 400, 300, 200, 150) GUICtrlSetBkColor(-1, 0xFFFF00)[/codebox] Quote Link to comment Share on other sites More sharing options...
koraycan123 Posted August 6, 2011 Author Share Posted August 6, 2011 olmaz öle gene aynı sorun olur flash hareket ettikçe butonu arka planda bırakıor nasıl engellerim bunu bilmiorm :S Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.