Rotate an image (7 Viewers)

isladogs said:
View attachment 111339
Click to expand...
This is a nice application of images for rotate command,


isladogs,

I've been looking of set of codes for "Logo_rotate"

There is an existing code I run

Dim rotation As Integer
rotation = 90 ' or 180, 270, etc.
Select Case rotation
Case 0
Me!Logo.PICTURE = "C:\Users\Admin\OneDrive\Pictures\lgu_logo\Logo.png"
Case 90
Me!Logo.PICTURE = "C:\Users\Admin\OneDrive\Pictures\lgu_logo\c.png"
Case 180
Me!Logo.PICTURE = "C:\Users\Admin\OneDrive\Pictures\lgu_logo\e.png"
Case 270
Me!Logo.PICTURE = "C:\Users\Admin\OneDrive\Pictures\lgu_logo\g.png"
End Select

Noticed that there are four sources of images, needed to use with corresponding "Rotate Degrees"
Therefore, it is very difficult to use one image and make command to action as to the desired degrees of rotate
I'm very interested to this rotate image codes, using a logo on "Form"


About your "later versions, the interface looks similar to this"
> you use table to record image path

This seems interesting to me so "Table: Logo" is created, where the field logo has images of rotate "0,90,180,270"
the test is using table with records of rotated images, using Converted Macro

DoCmd.RunCommand acCmdRecordsGoToNext
DoCmd.RunCommand acCmdRecordsGoToPrevious
DoCmd.RunCommand acCmdRecordsGoToLast
DoCmd.RunCommand acCmdRecordsGoToFirst

Please see the attachment sample on Accdb.
 

Attachments

is that legal? rotating your municipal logo.
anyway, check first your lgu if that is legal.
i am using webbrowser control to rotate your logo (only 1 logo is enough).
open form2.
 

Attachments

arnelgp said:
is that legal? rotating your municipal logo.
anyway, check first your lgu if that is legal.
i am using webbrowser control to rotate your logo (only 1 logo is enough).
open form2.
Click to expand...
arnelgp,

it is allowed,
some video presentation the LGU logo is on rotation/flip

I have to see your Form with 1 image.

Still trying it, can't see the rotate action,
"Logo on Web Browser"
1762935926496.png
 
Last edited:
what version of MS Access do you have?
this is the result you will get:
 
Vhung, you need to Edit the Registry (Registry Editor)so that the Logo will Rotate and Zoom.

If you have x32 bit Windows edit this registry setting:
Code: 
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION

If your window is x64 bit:
Code: 
HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION

click on "FEATURE_BROWSER_EMULATION",
then add (right-click on the Right Pane, New->DWORD (32 Bit) Value)
type the Value Name: msaccess.exe and the Value is 11000 (in Base Decimal).

this hack is an Emulation of IE11.

restart your computer and run the form again.
if in the form it Zoom In much big, edit the form and resize the Webbrowser control (a little bigger until you get it right).

registry.jpg
 
here is a video of the db run on Windows 10 x32 and Ms Access 2016 x32 on Virtual Machine.
i already modified the Registry keys.
 
Much easier to do in HTML and smoother as an alternative..

Code: 
<!DOCTYPE html>
<html lang="en">
<head>
  <meta charset="UTF-8">
  <title>Sequenced Image Animation</title>
  <style>
    .animated-image {
      width: 200px;
      height: auto;
      transform-origin: center;
      animation: fullSequence 14s ease-in-out infinite;
    }

    @keyframes fullSequence {
      0% {
        transform: scale(1) rotate(0deg);
      }
      14.3% {
        transform: scale(1.3) rotate(0deg); /* expand over 2s */
      }
      28.6% {
        transform: scale(1.3) rotate(0deg); /* hold for 2s */
      }
      42.9% {
        transform: scale(1) rotate(0deg);   /* contract over 2s */
      }
      57.1% {
        transform: scale(1) rotate(360deg); /* rotate CW over 2s */
      }
      71.4% {
        transform: scale(1) rotate(360deg); /* hold for 2s */
      }
      85.7% {
        transform: scale(1) rotate(0deg);   /* rotate CCW over 2s */
      }
      100% {
        transform: scale(1) rotate(0deg);   /* reset */
      }
    }
  </style>
</head>
<body>
  <h2>Sequenced Animation Loop</h2>
  <img src="D:\New Website\Logo-Circled-192x192.png" alt="Animated" class="animated-image">
</body>
</html>

Dropbox

www.dropbox.com www.dropbox.com
 

arnelgp​

HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION
"add Zoom In, Zoom Out effect."

Jason Lee Hayes​

"Much easier to do in HTML and smoother as an alternative."
------------------------------------------------------------------------------------------------------------------------------------------------------

AMAZING!

Thank you arnelgp, RegEdit is resolved
"New->DWORD (32 Bit) Value), type the Value Name: msaccess.exe and the Value is 11000 (in Base Decimal)."

This is a very helpful hack on Emulation of IE11.
Is it the reason why Web Browser don't behave well? Need the latter settings.

Both arnelgp and JLH piece works fine now,
But I have remaining trial of same logo to change its motion, [form: "LGU: GSO"]

Please see attach file,
 

Attachments

You must log in or register to reply here.

Similar threads

J
resizing an image
Replies
8
Views
983
John Sh
J
K
How can I add this code to the storage location of my file before scanning and then convert it to a PDF file?
2
Replies
25
Views
2,452
The_Doc_Man
The_Doc_Man
Jason Lee Hayes
Solved Creating a Black & White copy of an Image using WIA Filter
Replies
12
Views
2,808
Jason Lee Hayes
Jason Lee Hayes
W
Solved Remove white area around jpeg images
Replies
4
Views
1,472
wackywoo105
W
K
Calling Public Sub from an Array
Replies
5
Views
825
KevinBaker
K

Users who are viewing this thread

  • ... and 1 more.
    • Total: 8 (members: 3, guests: 5)
    Back
    Top Bottom